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ABSTRACT 

The HI0-E BOOTSTRAP DIAGNOSTIC VERITIES CORRECT OPERATION 5T 
THE MIB-E BOOTSTRAP LOADER OPTION IN All ITS STANOARD 
configurations, THI DIAGNOSTIC produces A VISUAL TYPE OUT 
ano/or a binary object tape or the bootstrap BLOCK of data 
INFORMATION LOADED IN T 0 CORE BY THE MJ8-E MODULE UNDER TEST, 

This VISUAL TYPEOUT AND BINARY OBJECT TAPE CAN THEN BE SAVED 
FOR THE TESTING OF MI8-E MOOULES OF THE SAME CONFIGURATION’, 

THE DIAGNOSTIC IS AVAILABLE IN A LOW AND HIGH CORE VERSION’, 

the version to be used to test a hib-e module will depend on the 

MEMORY LOCATIONS yTitlZED BY THAT PARTICULAR MODULE, THE LOW 
CORE VERSION OF THE DIAGNOSTIC OCCUPIES AND USES MEMORY 
LOCATIONS 0200-1777 AND THE HIGH CORE VERSION OCCUPIES AND 
USES MEMORY LOCATIONS 4200-5777, USE THE VERSION THAT DOES 
NOT CONFLICT WITH The MEMORY LOCATIONS OF THE BOOTSTRAP 3L0CK 
FOR THE M10-E MODULE UNDER TEST, 

REQUIREMENTS 

PDP0/E COMPUTER 

ASR-53 TELETYPE OR ECUI VALENT , 

LOW OR HIGH SPEED PAPER TAPE READER, 

LOU OR MIOH SPEED PAPER TAPE PUNCH, 

MIS-E BOOTSTRAP DIAGNOSTIC, 

MIB-E BOOTSTRAP LOADER OPTION, 

STARTING AOORCSS 

the STARTING ADDRESS OF THE LOW CORE VERSION IS 0200, 
tnc STARTING AOORCSS OF THE HIGH CORE VERSION IS 4200, 

PRELIMINARY programs 

ALL OTHER DIAGNOSTICS FOR THE COMPUTER ANO PERIPHERALS SHOULD BE 
RUN SUCCESSFULLY. 

OPERATION SMI Ten SETTINGS 

SUR0*1 VERIFICATION BY BINARY OBJECT TAPE, 

SHR0»B VERIFICATION BY VISUAL TYPEOUT, 

SMR1*1 PUNCH BINARY OBJECT TAPE. 

SWR2»1 LOU SPEED PAPER Tape PUNCH, 

SWR2*0 HIGH SPEED »APER TAPE PUNCH, 

SWR6-8. MEMORY fje l d OF 8 J NARY IOAOER. 

SWR9-11 AMOUNT OF EXTENDED MEMORY FIELDS, 

OPERATOR ANO PROGRAM ACTION 

A. INSTALL THE MJI-E HODULE TO BE TESTED, 

B . LOAO THE DIAGNOSTIC INTO THE SAME MEMORY FIELD AS UTILIZED 
BY THE MIB-E MODULE UNOER TEST USING THE STANDARD BINARY 
LOADER TECHNIQUE. 

C. IF THE OPERATOR WISHES TO TEST THE MOOULE USING ITS BINARY 
OBJECT TARE, LOAD THE BINARY OBJECT TAPE INTO THE SAME 
MEMORY FIELD AS OCCUPIED BY THE DIAGNOSTIC USING THE 



STANn*RQ BINARY LOADER TECHNIQUE. 

0. DISABLE THE I/O DEVICE USED BY THE MODULE UNDER TEST, POR 

example, place no tape in reader, turn : rr reader or punch, 

OR DISCONNECT the M6350 TO THE DEVICE, 

E, SET THE SWITCH REGISTER TO THE STARTING ADDRESS OP THE 
DIAGNOSTIC 0200/4200 AND PRESS ADDRESS LOAD, 

P. SET THE SWITCH REGISTER TO THE INITIAL ADDRESS O' - THE 

BOOTSTRAP DATA BLOCK OP INFORMATION OF THE PARTICULAR MODULE 
UNDE® test AND PRESS clear and then continue, the computer 

SHOULD HALT AT ADDRESS 0202/4202. 

G, SET THE SWITCH REGISTER TO THE STARTUP ADORESS OP THE 
MODULE UNDER TEST AND PRESS CLEAR AND THEN CONTINUE, THE 
COMPUTER SHOULD HALT AT ADDRESS 0205/«205, 

H. IF THE OPERATOR HAS SELECTED TO TEST The MODULI USING THE 
BINARY OBJECT TAPE, SET SWR0«1, JP VERIFICATION I? DESJRED 
BY VISUAL TYPCOUT, SET SWR0«0, 

1, JP The OPERATOR WISHES TO PUNCH A NEW SJNARv OBJECT TAPE, SET 

SWR1*1 ANQ SWR2*1 POR LOW SPEED PUNCH OR SWR2f0 P0« HJGH 

SPEED PUNCH, 

J, SET SWR6-0 TO THE MEMORY PIELO OP THE BINARY LOADER AND 

SMR9-11 TO THE AMOUNT OF EXTENOED MEMORY FIELDS ANO 

PRESS CLEAR AND THEN CONTINUE. 

K, THE BINARY LOADER WILL BE RELOCATED FROM THE FIELD SPEC- 
IFIED IN SWR6-8 TO A BUFFER AREA WIT-1* THE DIAGNOSTIC', 

THE SWITCH REGISTER SETTINGS FOR THE STARTUP AOORESS ANO 
THE INITIAL ADDRESS OF THE BOOTSTRAP INFORMATION WILL BE 
CHCCKEO TO MAKE SURE THEY 00 NOT CONFLICT WITH 

THE DIAGNOSTIC. 

L, THE DIAGNOSTIC WILL NOW LOAD A DATA PATTERN OF 2523 INTO 
ALL MEMORY LOCATIONS NOT OCCUPIED BY THE DIAGNOSTIC ANO THEN 
SIGNAL THE OPERATOR WITH A BELL ON The TTY TO TOGGLE THE 
BOOTSTRAP SWITCH AS THE DATA PATTERN JS BEING CHECKED, THIS 
WILL VERIFY THAT THE' COMPUTER IS NOT EFFECTED BY THE MODULE 
WHILE THE COMPUTER IS IN THE RUN STATE, THE OPERATOR MUST 
TOGGLE THE BOOTSTRAP SWITCH AT LEAST 10 T|M|s CURING THIS 
TEST ANO THEN HIT A KEY ON THE TTY TO EXIT TO NEXT TEST, 

M, THE DIAGNOSTIC WILL NOW LOAD A DATA PATTERN OF 5252 INTO ALL 
MEMORY LOCATIONS NOT OCCUPIED BY THE DIAGNOSTIC AND THEN 
SIGNAL THE OPERATOR WITH A BELL ON the tty TO TOGGLE THE 
BOOTSTRAP SWITCH AS THE DATA PATTERN IS BEING CHECKED, 

THIS WILL VERIFY THAT THE COMPUTER IS NOT EFFECTEO BY THE 
MODULE WHILE THE COMPUTER IS IN THE RJN STATE, THE OPERATOR 
MUST TOGGLE THE BOOTSTRAP SWJTCH AT ^EAST 10 TJMES DURING 
ANO THEN HIT A KEY ON THE TTY TO EXIT To NEXT TEST, 

N, THE DIAGNOSTIC WILL NOW LOAD A DATA PATTERN OF 2505 IN ALL 
MEMORY LOCATIONS NOT OCCUPIED BV The DIAGNOSTIC, LOAD A 
HALT IN THE BOOTSTRAP BLOCK *1 JUST JNCASE THE BOOTSTRAP 
D»TA DOESN'T HANG, THEN HALT JN ADDRESS 1*42/5440, the 

}ATOR MUST TOGGLE THE BOOTSTRAP SWITCH ONCE THEN ST' 
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INCORREC* SWITCH SETTINGS FOR the S’AR'w* aooress of the 
module *NQ THE INITIAL ADDRESS of the bootstrap data block 
OF INFORMATION hill RESULT in A halt at A05RESS 0545/4345, 

the operator may re-set the shitoh res:s*£R po* the initial 

ADDRESS OF T*E DATA BLOCK OF INFORMATION ANO HIT CONTINUE 
to RE-ST*R» ’HE SETUP PROCEDURE. 

8. RESTRICTIONS 

the operator must note that encoded b:o*s!Raps of standard 

CONFIGURATIONS SHOULD HANG WHEN LOADED 4*>D AUTOMATICALLY 
STaRTED-wP. unencoded bootstraps SHOULD NOT HANG but SHOULD 
R ESUbT in a halt at the bootstrap -t, 

THE I/D DEVICE THAT THE BOOTSTRAP USES -.ST BE DISABLED. 

The INITIAL ADDRESS of the bootstrap BuOC* and the startup 

ADDRESS OF THE MODULE MUST NO! CONFLIC* -!*H THE DIAGNOSTIC, 

the startup address of the module mus* be within the bootstrap 
block fcF INFORMATION. 

the binary OBJECT tape USED to TEST a PARTICULAR module must 
be USED WITH the same (LOW OP HIGH) VERSION OF THE DIAGNOSTIC 
FW9* WHICH JT WAS PUNCHED, 

THE DIIGNOSTtC AND BINARY OBJECT TAPE MUST BE LOADED INTO THE 
SAME MEMORY' FIELD IS', JJT-l L I ZED BY The MODULE UNOER TEST, 

THE OPERATOR MUST note that THE DOWNWARD MOTION of the BOOTSTRAP 
SWITCH DOES NOT IN ANYWAY EFFECT THE COM*U T ER, THE BOOTSTRAP 
SHOULD ONLY LQAO ON THE UPWARO MOTION O r THE BOOTSTRAP SWJTCm, 

9, GENERA^ INFORMATION 

The FUST TIMEv-AN OPERATOR RUNS THIS DIAGNOSTIC TO TEST A 
PARTICULAR TYPE OF MODULE HE MUST VEP]F- THE MODULE BY THE 
VlfUAL. TVPEOUT METHOD, IF THIS INFORMATION IS CORRECT, HE 
SHOtffcO X«N PUNCH A BINARY OBJECT TAPE O p THE INFORMATION 
LOADED «T The MODULE. THE OPERATOR SHOULD then label and 
SA« this BINARY OBJECT TAPE AND VISUAL TYPEOUT FOR THE 
TESTING OF MODULE? OF THE SAME CONFIGURATION, 

THE STARTUP ADDRESS OF THE MO0ULE REFERED TO JN THIS DOCU- 
MENTATION IS THE AOQRESS AT WHICH THE BOOTSTRAP PROGRAM WJLL 
AUTOMATICALLY START AFTER BEING LOADED 3- THE MODULE, THE 
INITIAL ADDRESS OF THE OATA BLOCK OF JNP3RMAT JON IS THE FJRST 
ADDRESS LOCATION INTO WHICH THE FIRST 0* THE 32 DATA WORDS 
WILL BE LOADEQ, 

THE BOOTSTRAP SWITCH IS LOCATED TO THE .EFT OF THE SWITCH 
REGISTER on the P0P8/E FRONT PANEL AND IS LABELEO "SW", 

THE 32 DECIMAL WORDS OF DATA INFORMATION LOAOEP BY THE 
BOOTSTRAP MODULE IS DEPENDENT ON THE DIDOES LABELED "WORD i-32" 
ON THE MI8-E MOOULE. CUT DIODES RESULT IN A OATA 1 AND UNCUT 
0 1 ODES RESULT IN * OATA 0, 

ENCODED BOOTSTRAP MODULES ARE THOSE WHOSE "WORD OJOOES" 

ARE CUT FOR CERTAIN DATA PATTERNS AND INSTRUCTIONS, 



ANO/OR RE"ST aR t TW£ COMPUTER AT ADDRESS 0266/4266, THE 
DIAGNOSTIC Kill CHECK All MEMORY LOCATIONS NOT OCCUPIED 9Y 
THE DIAGNOSTIC and the bootstrap block FOR A CORRECT data 
PATTERN AND then check the halt LOADED INTO THE bootstrap 
BLOCK *1. ir VlSUAw TYPEOUT WAS PREVIOUSLY SELECTED THE 
BOOTSTRAP BLOCK OP INFORMATION LOADED BY THE MODULE WILL BE 
TYPED OUT ON The tt Y AND THE OPERATOR MUST VERIFY THAT 
THIS IS CORRECT, IF VERIFICATION WAS PREVIOUSLY SELECTED 9Y 
THE BINARY OBUECf *APE THE DIAGNOSTIC WILL COMPARE THE 
BOOTSTRAP INFORMATION LOAOED BY THE MODULE TO THAT INFORMATION 
LOADED BY THE BINARY OBJECT TAPE. 

3. IF THE OPERATOR HAS SELECTED TQ PUNCH A BJN*Ry OBJECT TAPE 
THE COMPUTER HILL HALT AT ADDRESS 0307/4307 TO ALLOW THE 
OPERATOR TO PREPARE THE PUNCH, THE OPERATOR MUST THEN 
HIT C.ONTINUE TO PUNCH THE BINARY OBJECT TAPE, 

P. THE DIAGNOSTIC HILL NOH LOAD A DATA PATTERN OF 5252 

INTO ALL MEMORY LOCATIONS NOT OCCUPIED BY THE DIAGNOSTIC 
AND THEN HALT AT ADDRESS 1640/5640, THE OPERATOR MUST 
TOGGLE THE BOOTSTRAP SWITCH ONCE THEN STOP ANO/OR RESTART 
THE DIAGNOSTIC at ADDRESS 0323/4323, the DIAGNOSTIC 
WILL CHECK The DaYA PATTERN JN ALL MEMORY LOCATIONS 
NOT OCCUPIED BY THE OIAGNOSTJC ANO THE BOOTSTRAP BLOCK, 

CHECK THE HALT IN THE BOOTSTRAP BLOCK *1* *NO COMPARE 
THE BOOTSTRAP BLOCK OF INFORMATION TO THAT FOUND IN 
STEP N. THE COMPUTER SHOUIO THEN HALT AT ADDRESS 
0332/4332 INDICATING A SUCCESSFUL PASf COMPLETE, IF 
THE OPERATOR HITS CONTINUE THE DIAGNOSTIC SHOULD ENTER 
- THE FIRST TEST SECTION L. IF The OPERATOR -JSHES TO TEST 
A MODULE OF THE SAME CONFIGURATION, THE DIAGNOSTIC CAN 
' BE RESTARTED FROM ADDRESS 0333/4333. THUS ELIMINATING THE 
INITIAL SETUP PROCEDURE, 

ERRORS 

A non-recoverable ERROR MAY OCCUR if the bootstrap block OF 

INFORMATION DESTROYS THE DIAGNOSTIC IN CORE, IF THJS SHOULD 
OCCUR. IT IS POSSIBLE TO SINGLE STEP THE ACTUAL LOAD QF THE 
BOOTSTRAP MODULE, 

IF A RECOVERABLE DAT* ERROR DOES OCCUR THE COMPUTER SHOULD 
HALT WITH THE DEFECTIVE ADDRESS IN THE MQ» THE DEFECTIVE DATA 
IN THE AC, AND THE MEMORY FIELD WHERE THE VALUES WERE FOUND 
IN THE OF INDICATORS. THE OPERATOR MAY HIT CONTINUE TO 
DISPLAY THE VALUE EXPECTED IN THE AC. 

THE FOLLOWING MEMORY ADDRESSES LISTED BELOW ARE RECOVERABLE 
DATA ERROR HALTS AND FAILURES, FOR MORE INFORMATION REFERENCE 
The DIAGNOSTIC LISTING ANO/OR SECTION 6 OF THE DOCUMENT, 

0753/4753 DATA PATTERN OF 2525 OR 5252 LOADED INTO 

CORE BY THE DIAGNOSTIC WAS INCORRECT. 

1036/5036 HALT lOAOED INTO THE BOOTSTRAP BLOCK +1 BY 

THE DIAGNOSTIC WAS INCORRECT, 

1072/5072 THE BOOTSTRAP INFORMATION LOAOED INTO CORE 

BY THE MODULE UNDER TEST WAS INCORRECT, 
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UNENCODED BOOTST RAP *ODULES ARE THOSE WHOSE "WORD DJCDES" 

ARE NOT OUT RESULTING IN AN All 2'S PATTERN. 

THE MEMORY PIE.Oi S’aRTUP ADDRESS, AND THE INJTj a ^ ADDRESS 
or THE SDOTS'RaR JNEORMATJON JS DEPENDENT ON the SPi.IT 
WU3 JUMPERS LOCATED DN THE MIB-E MODULE AND l A3E.ED 
P2.F2, SB-Sli, AND I ’• I 11 RESPECTIVELY. 

The BINARY uDADER may 9E REPLACED AFTER running the DIAGNOSTIC 
To ITS ORIGINAL .OCATJONS IN MEMORY BY LOAD AND S’ARTJNG 
ADDRESS 12J0/5J2D. 

AN EXAMPLE or ’HE 300TSTRAP DATA TyPEOUT IS SHOWN 3E.0M, 


y I 8 • L 

b;c t 5?pa p data 

AQ*S 

data 

0023 

6007 

0024 

6751 

*025 

6745 

2026 

5025 

7027 

7200 

0030 

6733 

0031 

5031 

0032 

7777 

0033 

7777 

0034 

7777 

0035 

7777 

2036 

77*7 

0037 

7777 

0040 

7777 

0041 

7777 

0042 

7777 

0043 

7777 

0044 

7777 

0045 

7777 

0046 

7777 

0047 

7777 

0050 

7777 

0051 

7777 

2052 

7777 

0053 

7777 

0054 

7777 

2055 

7777 

0056 

7777 

0057 

7777 

0060 

7777 

0061 

7777 

0062 

7777 


10, LISTING 


S 
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IS tl« NIK I 


6007 

7421 


/ 

/N I 8-| bootstrap ot agnostic 

/ 

/COPYRIGHT 1972, 0I6ITAL EOUIPMENT CORPORATION 

/ 

CAP»6007 

HQL*7421 

/ 

/The LOW VERSION STARTINQ AOORCSS IS 0200, 

/THE HIGH VERSION STARTING AOQRESS IS 4200*, 

/ 

/OPERATION SWITCH REGISTER FOR His-E DIAGNOSTIC 

/ 

/SWR0.0 VERIFICATION by octal DUMP TYPE OUT 

/SWR0«1 VERIFICATION BY BINARY OBJECT TaPE 

/SWR1«1 PUNCH BINARY OBJECT TAPE 

/5WR2»1 LOW SPEEO PUNCH 

/§WR2«0 HIGH SPEED PUNCH 

/SWR6.8 FIELD OF BINARY LOADER 

/SWR9-11 AMOUNT OF EXTENDED rjCLOS 


/ROUTINE TO SAVE THE INITIAL BLOCK ADDRESS 
/AND THE STARTUP ADDRESS OF THE BOOTSTRAP, 

/SAVE BINARY LOADER IN PROGRAM BUFFER AREA*, 

/CHECK TO MAKE SURE THAT ADDRESSES DO NOT tNTERFER 
/WITH THE LOCATIONS OF THE DIAGNOSTIC, 

/ALSO SAVE OPERATION SWITCHES, 



0200 

• 0200 




3200 

7604 

/ 

begin, 

LAS 



3201 

3335 


DCA 

STRBLK 

/SAVE START OF BOOTSTRAP BLOCK 

0232 

7402 


hlt 



3203 

7674 


LAS 



0204 

3336 


DCA 

stradd 

/SAVE STARTUP AD0RES9 OF BOOTSTRAP 

3205 

7402 


HLT 



3206 

7604 


LAS 



0277 

3337 


DCA 

EXTSAV 

/SAVE OPERATING SWITCHES 

3210 

6224 


RJF 



3211 

134 2 


TAD 

KCDF 

/MAKE PRESENT FIELD COP 

0212 

3213 


OCA 

PRCFLD 


3213 

0000 

PREFlO, 

0 



0214 

1335 


TAD 

STRBLK 

/GET START OF BLOCK 

3215 

1340 


tad 

AMOUNT . 

/GET LENGTH OF BLOCK ♦£ 

0216 

3341 


DCA 

HLTLOC 

/MAKE HALT LOCATION 

0217 

1344 


TAD 

FIPPAS 

/GET PASS PLAG 

3220 

7640 


S2A 

CL* 

/IS IT FIRST PASS 

02 21 

4 777 ' 


JMS 

MOVBJN 

/YES, MOVE THE BINARY LOADER 

0222 

4776' 


JMS 

CHKAOO 

/CHECK THAT SWITCHES 00 NOT CONFLICT 


/ 

/LOAD MEMORY WITH data PATTERN 2525 AND SIGNAL 
/OPERATOR TO TOGGLE SWITCH AS MEMORY IS BEINO CHECKED, 
/SWITCH SHOUL0 BE TOGGLED AT LEAST 10 TIMES 
/OPERATOR MUST HIT TTY KEY TO EXIT TO NEXT TEST, 

/THIS WILL VERIFY THAT THE PROCESSOR AND THE MEMORY 
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/WILL NOT BE AFFECTED BY BOOTSTRAP WHEN THE COMPUTER 
/IS running, 


/ 


0223 

6007 

TESTi, CAF 

/CLEAR THE WORLD 

0224 

3344 

DCA FJRPAS 

0225 

1746 

TAD I XLOO 

/GET JMS FOR LOAD 

0226 

3775' 

OCA LODCHK 

/SETUP FOR LOAD 

0227 

4774' 

JMS MEMGO 

/LOAD MEMORY WITH DATA PATTERN 

0230 

2525 

2525 

/data pattern to be used 

0231 

4773' 

JMS BELL 

/SIGNAL OPERAtOR 

0232 

1745 

TAO I XCHK 

/GET JM$ FOR CHECK 

0233 

3775' 

DCA LODCHK 

/SETUP FOR CHECK MEMORY 

0234 

4774' 

JMS MEMGO 

/CHECK MEMORY 

0235 

2525 

2525 

/COMPARE TO THIS PATTERN 

0236 

6031 

ksf 

0237 

5234 

JMP ,-S 

/ 

/WAIT FOR OPERATOR TO CONTINUE 


/LOAD MEMORY WITH OATA PATTERN 5202 ANO SIGNAL 
/OPERATOR TO TOGGLE SWITCH AS MEMORY IS BEING CHECKED', 
/SWITCH SHOULD BE TOGGLED AT LEAST 10 TIMES 
/OPERATOR MUST HIT TTY KEY TO EXIT THIS TEST 
/THIS WILL VERIFY THAT THE PROCESSOR ANO THE MEMORY 
/WILL NOT BE AFFECTED BY BOOTSTRAP WHEN THE COMPUTER 
/IS RUNNING. 


/ 


0240 

7300 

TEST2, CLA CLL 


0241 

1746 

TAD I XLOO 

/GET JMS FOR LOAD 

0242 

3775' 

OCA LOOCHK 

/SETUP FOR LOAD MEMORY 

0249 

4774' 

JMS MEMGO 

/LOAO MEMORY WITH OATA PAtTERN 

0244 

5252 

5292 

/OATA PATTERN TO BE USED 

0245 

4773' 

JMS BELL 

/SIGNAL OPERATOR 

0246 

1745 

TAO I XCHK 

0247 

3775' 

DCA LOOCHK 

/SETUP FOR CHECK MEMORY 

0250 

4774' 

JMS HEMGO 

/CHECK MEMORY 

0251 

5252 

9292 

/COMPARE TO THIS PATTERN 

0252 

6031 

KSF 

0253 

5250 

JMP .-3 

/WAIT FOR OPERATOR TO CONTINUE 


/ 


/LOAD MEMORY WITH DATA PATTERN 2525, 

/LOAD A HAL-T INTO BOOTSTRAP BUFFER *1 JUST 
/INCASE THE BOOTSTRAP OOCSN'T HANG, 

/THEN GO HALT ANO WAIT TOR THE OPERATOR TO 
/TOGGLE THE BOOTSTRAP SWITCH ONCE, 

/THE OPERATOR MUST THEN RESTART THE PROGRAM AT 
/LOCATION 0266/4260, 


/ 


0254 

7300 

TESTS, CLA CLL 


0255 

1746 

TAO I XLOO 

/GET JMS FOR LOAD 

0256 

3775' 

DCA LOOCHK 

/SETUP FOR LOAD 

0257 

4774' 

JMS HEMGO 

/LOAD MEMORY WITH OATA PATTERN 

0260 

2525 

2525 

0261 

1343 

TAO KHLT 


0262 

3734 

DCA I WATHLT 

/STORE WAIT HALT AT ENO OF DUG, 

0263 

1343 

TAO KHLT 

0264 

3741 

DCA I HLTLOC 

/STORE HLT IN BOOTSTRAP BLOCK *1 


/ 



c 


/ 


( 


i 
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0265 5734 JMP I WATHLT /PO HAi,T ANO Wilt FOR OPERATOR TO 

/TOGOLC SNf tew AND RESTART PROGRAM 

/ 

/CHECK MEMORY NOT OCCUPIED BY THE BOOT! TRAP 
/F OR CORRECT PATTERN OF 2513, IF OPERATOR HAS 
/INHIBITED VISUAL PRINT OUT ASSUME THAT THE 
/BINARY OBJECT TAPE OF THE BOOTSTRAP INFORMATION 
/HAS BEEN LOAOEO INTO CORE AND COMPARE THIS OBJECT 
/TO THE INFORMATION BOOTSfRAPED JNTo CORE, 

/IF VISUAL CHECK PRINT OUT BOOTSTRAP BUFFER INFORMATION', 

/IF OPERATOR HAS SELECTED TO PUNCH NEW OBJECt TAPE 
/HALT AND WAIT FOR OPERATOR TO PREPARE THE 
/PAPER tape PUNCH SELECTED, 

/OPERATOR MUST HIT CONTINUE TO PUNCH TAPE, 


/ 


0266 

7300 

RE5TR3, 

CLA 

CLL 


0267 

1337 


TAO 

EXTSAV 

/GET OPERATION SWITCHES 
/SWR0«1 IS INHIBIT OCTAL DUMP 

0270 

7710 


SPA 

CLA 

0271 

5274 


JMP 

INHDMP 

/INHIBIT OCTAL DUMP OF BOOTSTRAP 

0272 

4772' 


JMS 

MOVBUF 

/MOVE BOOTSTRAP tO BUFFER AREA 

0273 

4771' 


JMS 

TYPBUF 

/TYPE OCTAL DUMP OF BOOTSTRAP 

0274 

1743 

INHOMP, 

TAO 

I XCHK 

/GET JMS FOR CHECK 

0275 

3775 ' 


DCA 

LQOCHK 

/SETUP FOR CHECK MEMORY 

0276 

7320 


CLA 

CLL CML 


0277 

4774' 


JMS 

MCMGO 

/CHECK MEMORY OTHER THAN BOOTSTRAP 

0300 

2525 


2525 


0301 

4770' 


JMS 

CHKHLT 

/CHECK HLT STORED IN BLOCK *1 

0302 

4767' 


JMS 

compar 

/COMPARE BOOTSTRAP TO SUFFER AREA 

0303 

1337 


TAD 

EXTSAV 

/GET OPERATION SWITCHES 

0304 

7004 


RAL 


/SWR1«1 IS PUNCH NEW TAPE 

0305 

7700 


SMA 

CLA 

0306 

5311 


JMP 

TEST4 

/INHIBIT TAPE AND 60 TO NEXT TEST 

0307 

7402 


HLT 


/WAIT FOR OPERATOR TO PREPARE PUNCH 

0310 

4766' 


JMS 

BPUN 

/OPERATOR MUST Hit CONTINUE TO PUNCH 


/ 


/LOAD MEMORY WITH DATA PATTERN 5232, 

/LOAD A HALT INTO BOOTSTRAP BUFFER *1 JUST 
/INCASE THE BOOTSTRAP DOESN'T HANG, 

/THEN 60 HALT AND WAIT FOR THE OPERATOR TO 
/TOGGLE the BOOTSTRAP SWITCH ONCE, 

/THE OPERATOR MUST THEN RESTART THE PROGRAM AT 




/LOCATION 0323/4323. 
/ 


0311 

7300 

/ 

TE5T4, 

CLA CLL 


0312 

1746 


TAD I XLOO 

/GET JMS FOR LOAD 

0313 

3775' 


DCA LODCHK 

/SETUP FOR LOAO 

0314 

4774' 


JMS MEM60 

/LOAO MEMORY WITH DATA PATTERN 

0315 

5252 


5252 

0316 

1343 


TAO KHLT 


0317 

3734 


DCA I WATHLT 

/STORE WAIT HALT AT END OF DIAG, 

0320 

1343 


TAD KHLT 

0321 

3741 


DCA I HLTLOC 

/STORE A HLT IN BLOBK *1 

0322 

3734 


JMP I WATHLT 

/GO HALT AND WAIT FOR OPERATOR TO 
/TOGGLE SWITCH AND RESTART PROGRAM 




I 
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/ 

/CHECK MEMORY NOT OCCUPIED BY THE BOOTSTRAP 
/FOR A CORRECT PATTERN OF 3232, THEN COMPARE 
/THE BOOTSTRAP INFORMATION TO THAT FOUND IN 
/tEST 3. 


/ 



0323 

7300 

RESTP4, CLA CLL 

/GET JMS FOR CHEftK 

f 

0324 

1745 

TAD I XCHK 


0325 

3775' 

DCA LODCHK 

/SETUP FOR CHEOK MEMORY 


0326 

7320 

CLA CLL CML 

/CHECK MEMORY OTHER THAN BOOTSTRAP 

f 

0327 

4774' 

JMS MCMGO 


0330 

5252 

5252 

/CHECK HLT IN BLOC* *1 


0331 

4770' 

JMS CHKHLT 

f 

0332 

7402 

HLT 

/END OF TEST 


0333 

5223 

JMP TEST1 

/LOOP ON PROGRAM 

r 

0334 

1640 

WATHLT, INBUF *40 



0335 

0000 

STRBLK, 0 



0336 

0000 

STRADO, 0 


r 

0337 

0000 

EXTSAV, 0 



0340 

0040 

AMOUNT, 0040 



0341 

0000 

HLTLOC, 0 


r 

0342 

6201 

KCDF, CDF 



0343 

7402 

KHLT, HLT 

FJRPAS, 7777 



0344 

7777 


r 

0345 

0760 

XCHK, KCHK 



0346 

0761 

XLOO, KLOD 


r 

0366 

1223 

/ 



0367 

1043 




0370 

1023 



r 

0371 

0421 




0372 

0400 




0373 

0514 



r 

0374 

0600 




0375 

0743 




0376 

0520 



r 

0377 

1000 





0400 

PAGE 


r 



/ROUTINE TO MOVE BOOTSTRAP 

INFORMATION FROM 




/BOOTSTRAP AREA TO PROGRAM 

buffer AREA, 

i 

0400 

0000 

MOVBUF, 0 



0401 

1777' 

TAO STRBLK 



0402 

3364 

DCA BCNT6 


\ 

0403 

1776' 

TAD AMOUNT 



0404 

7041 

CIA 



0405 

3365 

OCA BCNT7 


f 

0406 

1362 

TAD XIN8UF 



0407 

3366 

DCA BCNT6 



0410 

1764 

TAD 1 BCNT6 



0411 

3766 

DCA I BCNT8 



0412 

2364 

191 BCNT6 



0413 

7000 

NOP 









* 

* 




z 
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0414 

2366 


IS! 

BCNT8 


0415 

7000 


NOP 



0416 

2365 


IS! 

BCNT7 


0417 

3210 


JMP 

MOVBUr +10 


0420 

3600 


JMP 

I MOVBUF 




/ROUTINE TO 

TYPE BOOTSTRAP DATA INFORMATION 

0421 

0000 

TYPBUF, 

0 



0422 

1360 


TAD 

textms 


0423 

3364 


OCA 

BCNT6 


0424 

1361 


TAO 

textlg 


0425 

3365 


DCA 

BCNT7 


0426 

1764 


TAO 

I BCNT6 


0427 

4305 


JMS 

TYPE 


0430 

2364 


IS! 

BQNT6 


0431 

7000 


NOP 



0432 

2365 


IS! 

BCNT7 


0433 

5226 


JMP 

TYPBUF +5 


0434 

1777' 


TAD 

STRBIK 


0435 

3364 


DCA 

BCNT6 


0436 

1776' 


TAD 

AMOUNT 


0437 

7041 


CIA 



0440 

3365 


DCA 

BCNT7 


0441 

1364 

strtyp, 

TAD 

BCNT6 


0442 

4264 


JMS 

OCTEL 


0443 

1347 


TAO 

K7774 


0444 

3366 


DCA 

BCNTfl 


0445 

1354 


TAD 

K0240 


0446 

4305 


JMS 

TYPE 

/MAKE A SPACE 

0447 

2366 


IS! 

BCNT8 


0450 

3245 


JMP 

.•3 


0451 

1764 


TAD 

I BCNT6 


0452 

4264 


JMS 

OCTEL 


0453 

1350 


TAD 

K0213 


0454 

4305 


JMS 

TYPE 


0455 

1351 


TAO 

K0212 


0456 

4305 


JMS 

TYPE 


0457 

2364 


IS! 

BCNT6 


0460 

7000 


NOP 



0461 

2365 


isz 

BCNT7 


0462 

5241 


JMP 

STRTYP 


0463 

5621 


JMP 

i typbuf 




/ROUTINE TO 

TYPE OCTAL 

INFORMATION, 



/ 



*v v r r 

0464 

0000 

OCTEL, 

0 



0465 

7106 


RTL 

CLL 


0466 

7006 


RTL 



0467 

3363 


DCA 

ACS AVI 


0470 

1347 


TAD 

K7774 


0471 

3367 


OCA 

BCNT9 


0472 

1363 


TAD 

ACSAV1 


0473 

0775' 


AND 

K0B07 


0474 

1353 


TAD 

K0260 
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0475 

4305 


JMS TYPE 


0476 

1363 


TAD ACS A VI 


0477 

7006 


rtl 


0500 

7004 


RAL 


0501 

3363 


DCA ACSAV1 


0502 

2367 


IS! BCNT9 


0503 

5272 


JMP ,»ll 


0504 

5664 


JMP I OCTEL 


0505 

0000 

TYPE, 

0 


0506 

6046 


TLS 


0507 

6041 


TSF 


0510 

5307 


JMP .-1 


0511 

6042 


TCF 


0512 

6032 


KCC 


0513 

5705 


JMP I TYPE 


0514 

0000 

BELL, 

0 


0515 

1352 


TAO K0207 


0516 

4305 


JMS TYPE 


0517 

5714 


JMP I BELL 




/ROUTINE TO CHECK THAT 

’ ADDRESSES SUBMITTED BY OPERATOR 



/DO NOT 

CONFLICT WITH 

DIAGNOSTIC, IF SWITCH ERROR OCCURES 



/THE COMPUTER SHOULD HALT, RE. SET SWITCH FOR STARTING 



/ADDRESS OF BLOCK AND 

HIT CONTINUE TO TRY AGAIN, 

0520 

0000 

CHKADD, 

0 


0521 

7300 


CLA CLL 


0522 

1356 


TAO SAFADO 

/LAST LOCATION USES 

0523 

7040 


CMA 

0524 

1777' 


TAD STRBLK 

/GET START OF BOOTSTRAP BLOCK 

0525 

7630 


SIL CLA 

/COES BLOCK iNTERpER WITH OIAG, 

0526 

5334 


JMP STRTUP 

/ok, check starTuR address 

0527 

1357 


TAO XBEGIN 

/OET FIRST LOCATION USEO 

0530 

7041 


CIA 

0531 

1774' 


TAD HLTLOC 

/compare to this value 

/DOES BLOCK INTERPER W|TH OIAG, 

0532 

7630 


SZL CLA 

0533 

5345 


JMP AODHLT 

/STARTING BLOCH AQDRESS ERROR 

0534 

1777' 

STRTUP, 

TAO STRBLK 

/GET START OP BLOCK 

0535 

7041 


CIA 

0536 

1773' 


‘TAO STRADO 

/GET STARTUP ADDRESS 

0537 

0540 

7510 

5345 


SPA 

JMP AODHLT 

/WAS ADDRESS OK 
/NO, ERROR 

0541 

7161 


CIA SJL 

0542 

1355 


TAD LENGTH 

/length of BLOCK 

0543 

7620 


SNL CLA 

/WAS STARTUP ADDRESS OK 
/YES, START TEST 

0544 

5720 


JMP I CHKADO 

0545 

7602 

aoohlt, 

HLT CLA 

/SWITCH SETTING ERROR 

/RESET SWITCH REGISTER TO START OF 

0546 

5772' 


JMP BEGIN 





/BLOCK AND HIT CONTINUE TO TRY AGAIN 

0547 

7774 

K7774, 

7774 


0550 

0215 

K0215, 

0215 


0551 

0212 

K0212, 

0212 




I . / 

PAL10 

Vl4l 

24-jAN- 

72 

23»36 

PACE 

1*6 



0552 

0207 

K0207, 

0207 






0553 

0260 

K0260, 

0260 






0554 

0240 

K0240 , 

0240 






0555 

0037 

length, 

0037 






0556 

1777 

SAT ADO , 

IN8UF *177 





0557 

0177 

XBEGIN, 

BEGIN -1 





0560 

1107 

TEXTMS, 

botmes 



' V 


0561 

7732 

TEXTLG, 

7732 






0562 

1600 

XINBUF, 

INBUF 





0563 

2000 

ACSAV1, 

0 






0564 

0000 

3CMT6, 

0 






0565 

2 000 

BCNT7, 

0 






0566 

0000 

BCNTSi 

0 






0567 

0000 

BCNT9, 

0 






0572 

3200 








0573 

0336 








0574 

0341 








0575 

2765 








0576 

0340 








0577 

3335 









3600 

PAGE 









/ROUTINE TO 

determine 

fields 

TO BE CHECKED 



0600 

2030 

r 

memgo, 

0 






0601 

1777' 


tad 

PREFLD 


/GET PRESENT FIELD CDF 



0602 

3346 


DC A 

FLDGO 





3603 

7630 


SZL 

CLA 





3604 

5325 


JMP 

SPECHK 


/CHECK FOR ALL BUT PROG, * BOOTSTRAP 



0605 

1776' 


TAD 

XBEGIN 


/GET STARTING ADDRESS OF CHECK 



0606 

3345 


DC A 

TSTOP 





0607 

1362 


TAD 

lastlc 


/GET ENDING ADDRESS OF CHECK 



0610 

3344 


DC A 

TBEGIN 





2611 

4342 


JMS 

FLDCHK 


/ENTER ROUTINE TO LOAD OR CHECK 



0612 

7340 


CIA 

CLL CMA 





0613 

3345 


DCA 

TSTOP 


/START AT 0 



0614 

3344 


DC A 

TBEGIN 


/END AT 0 



0615 

1775' 

EXTCHK 

, TAD 

EXTSAV 





3616 

0365 


AND 

K0007 





0617 

7450 


SNA 



/IS IT TEST EXTENDED MEMORY 



0620 

5240 


JMP 

EXIT 


/NO DO NOT TEST EXTENDED MEMORY 



0621 

7040 


CM A 






0622 

3363 


DCA 

FLDAMN 


/SETUP FOR FIELDS TO TEST 



3623 

3366 

STRCHK 

, DCA 

BCNT3 


/START WITH 0 



0624 

1366 


TAD 

BCNT3 





0625 

1774 ' 


TAD 

KCDF 





0626 

3346 


DCA 

FLDGO 


/FIELD TO BE CHECKED 



0627 

6224 


RIF 






0630 

7041 


CIA 






0631 

1366 


TAD 

BCNT3 





0632 

7640 


SHA 

CLA 


/ARE WE IN THIS FIELD 



0633 

4342 


JMS 

FLDCHK 


/NO, ENTER ROUTINE TO LOAD OR CHECK 



0634 

1366 


TAD 

BCNT3 





0635 

1364 


TAD 

K0010 




/ 
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0636 

2363 


ISZ 

FLDAMN 





3637 

5223 


JMP 

STRCHK 


/MORE TO GO 



3640 

7300 

EXIT, 

CLA 

CLL 





0641 

2200 


ISZ 

MEMGO 




' 

0642 

5600 


JMP 

I MEMGO 


/EXIT 





/ROUTINE TO 

LOAD MEMORY WITH 

DATA PATTERN 


' 

3643 

0000 

LODMEM i 

i 0 






0644 

1777' 


TAD 

PREFLD 


/SETUP FOR PRESENT FIELD 


* 

0645 

3262 


DCA 

THSFLQ 





0646 

1643 


TAD 

I LODMEM 


/GET STARTING ADDRESS 



0647 

3367 


DCA 

BCNT4 




t 

0650 

2243 


ISZ 

LODMEM 





0651 

1643 


TAD 

I LODMEM 


/GET ENDING ADDRESS 



0652 

3370 


DCA 

BCNT5 




r 

0653 

2243 


ISZ 

LODMEM 





0654 

1643 


TAD 

I LODMEM 


/GET FIELO TO GO 



0655 

3260 


DCA 

NEWFLD 




r 

0656 

2243 


ISZ 

LODMEM 





0657 

1600 


TAD 

I MEMGO 


/GET DATA PATTERN 



0660 

0000 

NEWFLD, 

» 0 



/modified BY TEST 



0661 

3767 


DCA 

I BCNT4 





0662 

0000 

thsflo, 

, 0 



/MODIFIED BY TEST 



0663 

4314 


JMS 

ENDTST 


/IS IT END OF TEST 



0664 

5257 


JMP 

NEWFLD *1 


/NO, CONTINUE 



0665 

5643 


JMP 

I LODMEM 


/YES, EXIT 





/ROUTINE TO 

CHECK MEMORY FOR 

CORRECT DATA PATTERN, 



0666 

0000 

CHKMEMi 

i 0 





, 

0667 

1777' 


TAD 

PREFLD 


/GET PRESENT FIELD 



0670 

3310 


DCA 

CHKTHS 





0671 

1666 


TAD 

I CHKMEM 


/GET STARTING ADDRESS 


, 

0672 

3367 


DCA 

BCNT4 





0673 

2266 


ISZ 

CHKMEM 





0674 

1666 


TAD 

I CHKMEM 


/GET ENDING ADDRESS 


f 

0675 

3370 


DCA 

0CNT5 



> 


0676 

2266 


ISZ 

CHKMEM 





0677 

1666 


TAD 

I CHKMEM 


/GET FIELD TO TEST 


f 

0700 

3303 


DCA 

FRMFLO 



'7 


0701 

2266 


ISZ 

CHKMEM 





0702 

1600 


TAD 

I MEMGO 


/GET EXPECTED DATA 


t 

0703 

0000 

FRMFLDi 

. 0 






0704 

7041 


CIA 






0705 

1767 


TAD 

I 6CNT4 


/GET DATA PATTERN 


* 

0706 

7640 


SZA 

CLA 


/ARE THEY THE SAME 



0707 

5350 


JMP 

ACERR1 


/NO, INDICATE 



0710 

0000 

chkths. 

. 0 



/MODIFIED BY TEST 



0711 

4314 


JMS 

ENDTST 


/IS IT END OF TEST 



0712 

5302 


JMP 

frmfl| -1 


/NO, CONTINUE 



0713 

5666 


JMP 

I CHKMEM 


/YES EXIT 


♦ 



/ 


! 



, 




/ROUTINE TO 

CHECK COR 

END OF 

TEST 


* 





! 



* 

• 





7 

\ 

J 

i 


i 

| 

| 

| 

i 

. f 



/ 
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0714 

0000 

ENOTST. 

0 


0715 

1367 


TAO 

BCNT4 

0716 

7041 


CIA 


0717 

1370 


TAD 

BCNT3 

0720 

7630 


SNA 

CLA 

0721 

2314 


I S2 

ENOTST 

0722 

2367 


ISH 

BCNT4 

0723 

5714 


JMP 

I ENOTST 

0724 

3714 


JMP 

I ENOTST 



/ROUTINE 

; to 

TEST ALL 

0725 

1362 

SPECHK, 

TAD 

lastlc 

0726 

3344 


DCA 

TBECIN 

0727 

7340 


CLA 

CLL CMA 

0730 

1773' 


TAD 

strblk 

0731 

3345 


DCA 

TSTOP 

0732 

4342 


JMS 

FLDCHK 

0733 

: 7301 


CLA 

CLL I AC 

0734 

1772' 


TAD 

hltloc 

0735 

3344 


DCA 

TWEGIN 

0736 

1776' 


TAD 

XBEGIN 

0737 

3345 


DCA 

TSTOP 

0740 

4342 


JMS 

FLDCHK 

0741 

3215 


JMP 

EXTCHK 



/ROUTINE 

TO 

LOAD OR 1 

0742 

0000 

FIDCHK, 

0 


3743 

0000 

lODCHKi 

0 


3744 

0000 

TBEGIN, 

0 


0743 

0000 

TSTOP, 

0 


0746 

0000 

FLDCO, 

0 


0747 

5742 


JMP 

I FLDCHK 



/ROUTINE 

; to 

DISPLAY I 


✓OCT CNOtNO AOORCSS 

✓OCT PRESENT AOORCSS 
✓ I* IT LAST AOORCSS TO TCIT 
✓TCI# EXIT 


✓cct start or cHecr 


✓OCT END or CHCCK 

✓ENTER ROUTINE TO LOAD OR CHECK 


✓GET END Or CHECK 


✓ENTER ROUTINE TO tOAO OR CHECK 
✓EXIT 


✓MOOiriED 8Y TEST 
✓MOOirjED BY TEST 
✓HODiriEO BY TCSt 
✓MOOiriED BY TEST 
✓EXIT 


/IT an error occures the MACHINE HILL 

/HIT WITH BAD ADDRESS IN MO ANO BAD DATA IN AC, 

/HJT CONTINUE, 

/THE MACHINE WILL HIT WITH EXPECTED DATA IN AC*, 


3750 

1367 

ACERR1, 

TAD 

BCNT4 

✓OCT BAD AOORCSS 

0731 

7421 


MQL 


✓LOAD AC TO HQ 

3752 

1767 


TAD 

I BCNT4 

✓GET BAD OATA PATTERN 

0733 

7402 

erhlti, 

HLT 


✓ac • data pattern rouNo 

3734 

7300 


CLA 

CLL 

0755 

1600 


TAD 

I MEMGO 

✓GET GOOD NUMBER 

0756 

7402 


HLT 


✓AC • EXPECTED OATA PATTERN 

3737 

5356 


JMP 

.*1 


0760 

4266 

KCHK. 

JMS 

CHKMEM 


0761 

4243 

KlOO, 

JM5 

LODMEM 


0762 

1641 

LASTLC, 

INBUr *41 


0763 

0000 

FLOAMN, 

0 



0764 

0010 

W0010, 

0010 
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0765 

0007 

K0007, 000 

7 



0766 

P000 

9CNT3# 0 




0767 

0000 

9CNT4, 0 




0770 

0000 

BCNT3# 0 




0772 

0341 

/ 




0773 

0335 





0774 

0342 





0773 

0337 





0776 

0537 





0777 

0213 






1000 

PAGE 






/ROUTINE TO 

MOVE THE BINARY 

LOADER 

1000 

0000 

MOVBIN, 0 




1001 

1306 

TAD 

bupbin 



1002 

3277 

DCA 

BpNTi 


✓SETUP BINARY LOAQER BUPPER 

1003 

1777' 

TAO 

prefld 



1004 

3213 

OCA 

setfld 



1005 

1303 

TAD 

K7600 



1006 

3300 

DCA 

BCNT2 


✓SETUP POR BINARY LOADER 

1007 

1776' 

TAO 

EXTSAV 



1010 

0304 

AND 

K0070 


✓MASK 6*8 

1011 

1773' 

TAO 

KCDF 



1012 

3213 

DCA 

BINFLD 


✓PIELO OP BINARY LOADER 

1013 

0000 

BINFiD, 0 



✓MODIPIEO BY TESt 

1014 

1700 

TAD 

I BCNT2 


✓GET BINARY WORD 

1015 

0000 

scTriD, 0 



✓MOOiriED BY Test 

1016 

3677 

OCA 

I BCNTl 


✓STORE IN BUPPER AREA 

1017 

2277 

ISC 

BCNTl 



1020 

2300 

ISI 

8CNT2 



1021 

3213 

JMP 

binflo 


✓MORE WORDS TO GO 

1022 

5600 

JMP 

I MOVBIN 


✓EXIT 



/ROUTINE TO .CHECK HALT 

AFTER 

BOOTSTRAP 

1023 

0000 

CHKHLT, 0 




1024 

1774' 

TAD 

hltloc 


✓get halt Location 

1025 

3301 

OCA 

BCNT10 



1026 

1701 

TAD 

I BCNT10 


✓GET HALT 

1027 

7041 

Cl-A 




1030 

1773' 

TAO 

KHLT 


✓OCT EXPECTED VALUE 

1031 

7630 

SNA 

CLA 


✓were they the same 

1032 

5623 

JMP 

I CHKHLT 


✓YES EXIT 


1033 1301 

1034 7421 

1035 1701 


✓ROUTINE TO DISPLAY ERROR EOR BAD HLT LOCATION 
✓IP AN ERROR OCCURES THE MACHINE HILL 
/HLT WITH BAD AOORCSS IN MO ANO BA0 DATA IN AC*. 
✓HIT CONTINUE, 

✓ THE MACHINE HILL HLT WITH EXPECTED OAlA IN AO', 

ACERR2, TAD 6CNT10 /OCT BAO AOORCSS 

MOL /LOAD M.O, 

TAD I BCNTlf /OCT BAD OATA 
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1036 

7402 

ERHLT2. 

HLT 


/BAD DATA IN AC 

1037 

7300 


OLA CLL 



1040 

1773' 


TAD KHLT 


. /GET EXPECTED DAtA 

1041 

7402 


HLT 


/EXPECTED DAtA IN AC 

1042 

5241 


JMP .*1 





/ROUTINE TO COMPARE BOOTSTRAP 

To buffer 

1043 

0000 

COMPaR, 

0 



1044 

1772' 


TAD STRBUF 


/GET START Of iUfffcR AREA 

1045 

3301 


DCA BCNT10 



1046 

1771' 


TAD STRBLK 


/GET START Of BOOTSTRAP AREA 

1047 

3302 


DCA BCNTl! 



1050 

1770' 


TAD AMOUNT 


/GET AMOUNT TO BE CHECKED 

1051 

7041 


CIA 



1052 

3303 


DCA BCNT12 


/STORE IN COUNTER 

1053 

1701 

COMSTR, 

TAD I 0CNT10 


/GET EXPECTED DAtA 

1054 

7041 


CIA 



1055 

1702 


TAD I BCNT11 


/GET UNKNOWN VALUE 

1056 

7640 


S2 A CLA 



1057 

5267 


JMP ACERR3 


/ERROR VALUES NOt THE SAME 

1060 

2301 


XSZ BCNT10 



1061 

7000 


NOP 



1062 

2302 


ISZ BCNTl! 



1063 

7000 


NOP 



1064 

2303 


ISZ BCNT12 



1065 

5253 


JMP COMSTR 


/CONTINUE CHECKING 

1066 

5643 


JMP I COMPAR 


/EXIT 



/ROUTINE TO DISPLAY BOOTSTRAP 

DATA ERRORS 



/IF AN 

ERROR OCCURES 

THE MACHINE WILL 



/HLT WITH BAD ADDRESS 

IN MQ AND BAD OATA IN AC‘, 



/HIT CONTINUE, 





/THE MACHINE WILL HLT 

WITH EXPECTED DATA IN AC', 

1067 

1302 

ACERR3, 

TAD BCNT11 



1070 

7421 


MQL 


/load ac with bad Address 

1071 

1702 


TAD I BCNTll 


/GET BAD DATA 

1072 

7402 

E«HLT3, 

HLT 


/AC IS BAD DAtA 

1073 

7300 


CLA CLL 



1074 

1701 


TAD I 8CNT10 


/GET EXPECTED DATA 

1075 

7402 


HLT 


/AC IS EXPECTED DAtA 

1076 

5275 


JMP ,-l 



1077 

0000 

BCNTl, 

0 



1100 

0000 

BCNT2, 

0 



1101 

0000 

BCNT10, 

0 



1102 

0000 

BCNTH, 

0 



1103 

0000 

3CNT12, 

0 



1104 

0070 

K0070, 

0070 



1105 

7600 

K 7600 , 

7600 



1106 

1400 

BUFBIN, 

SAVBIN 





/TEXT FOR "MI9-E BOOTSTRAP DATA" 



/ 

"ADRS" 

"DATA" 
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/ 


1107 

0215 

BOTMES, 

215 

1110 

0212 


212 

1111 

0315 


315 

1112 

0311 


311 

1113 

0270 


270 

1114 

0255 


255 

1115 

0305 


305 

1116 

0240 


240 

1117 

0302 


302 

1120 

0317 


317 

1121 

0317 


317 

1122 

0324 


324 

1123 

0323 


323 

1124 

0324 


324 

1125 

0322 


322 

1126 

0301 


301 

1127 

0320 


320 

1130 

0240 


240 

1131 

0304 


304 

1132 

0301 


301 

1133 

0324 


324 

1134 

0301 


301 

1135 

0215 


215 

1136 

0212 


212 

1137 

0301 


301 

1140 

0304 


304 

1141 

0322 


322 

1142 

0323 


323 

1143 

0240 


240 

1144 

0240 


240 

1145 

0240 


240 

1146 

0240 


240 

1147 

0304 


304 

1150 

0301 


301 

1151 

0324 


324 

1152 

0301 


301 

1153 

0215 


215 

1154 

0212 


212 

1170 

0340 

/ 


1171 

0335 



1172 

1350 



1173 

0343 



1174 

0341 



1175 

0342 



1176 

0337 



1177 

0213 




1200 

PAGE 



/ROUTINE TO REPLACE BINARY LOADER, 

/binary loaoer may beIreplaced BY 
/load AND STARTING ADBRES? "RPLBIN" 

1200 1777' RPLBIN, TAD EXTSAV | /GET OPERATION SWITCHES 



K 

/ , PALIS 

V141 

24-JaN- 

-72 

21 136 

PASS 


1201 

0776* 


ANO 

KB070 

/HASH SITS 6*1 

\ 

1202 

1775* 


TAD 

KCOF 


1203 

3213 


OCA 

TOPLD 

/HAKE BINARY FIELD COF 
/GET PRESENT FIELD COF 


1204 

1774* 


TAO 

prefld 


1209 

3215 


OCA 

OPRFLO 


1206 

1773* 


TAO 

K7600 

/OCT START OF IIHAPY LOADER 


1207 

3351 


OCA 

BCNT13 

* 

1210 

1772* 


TAO 

BUFBIN 

/GET START OF OUFFCR AREA 


1211 

3352 


DCA 

BCNT14 


1212 

1752 


TAO 

I BCNT14 

/OCT INFORHAftON 

» 

1213 

0000 

tofld, 

0 


/HOOIFIEO BY TEST 


1214 

3751 


OCA 

I BCNT19 

/STORE BINARY WORO 


1219 

0000 

OPRFLD. 

0 


/HOOIFIEO OY TEST 

1 

1216 

2352 


182 

BCNT14 



1217 

2351 


ISi 

BCNT13 



1220 

5212 


JHP 

tqfld »1 

/HONE HONDO TO 60 

* 

1221 

7402 


HLT 


/BINARY LOAOER OONE 


1222 

5221 


JHP 

.•1 





/ROUTINE TO 

PUNCH OBJECT 

TAPE POR OPERATOR 


1223 

0000 

SPUN, 

0 




1224 

7300 


CLA 

CLL 



1225 

3336 


DCA 

CKSH 

/CLEAR CHECK SUM 


1226 

1777* 


TAO 

EXTSAV 

/OCT OPERATION SWttCHES 


1227 

7006 


RTL 



1230 

7700 


SHA 

CLA 

/SWR2.J IS LOW SPEED PUNCH 


1231 

3262 


JMP 

HIPUN 

/HIGH SPEED PUNCH SELEOTEO 


1232 

6046 


TLS 


/LOW SPEEO PUNCH SELECTEO 


1233 

4264 

golead, 

JHS 

PLOT 

/OO PUNCH LEADER TRAILER 

. 

1234 

1350 


tad 

STRBUF 

/CET start op buffer 


1235 

3337 


OCA 

I A 

/STORE INITIAL ADDRESS tO SE 


1236 

1350 


tad 

stpbuf 


1237 

1771' 


TAD 

AMOUNT 

/6ET AMOUNT OF BOOTSTRAP LOC. 


1240 

3340 


DCA 

FA 


1241 

1337 


TAO 

IA 



1242 

7120 


STL 


/TO PUNCH IA AS ORlOtN 

I 

1243 

4276 

PUNL. 

JMS 

BINP 

/CO PUNCH WORO AS tWO LINES 1 


1244 

1337 


TAO 

IA 


1245 

7041 


CIA 



1 

1246 

1340 


TAD 

FA 



1247 

7650 


SNA 

CLA 

/WAS IT LAST WORD 


1250 

5245 


JMP 

.♦3 

/IT HAS LAST WORD 

J 

1251 

1737 


TAO 

I IA 

/GET WORD TO PUNCH 


1252 

7100 


CLL 



1253 

2337 


192 

IA 


I 

1254 

524J 


JHP 

PUNL 



1255 

1336 


TAO 

CKSH 



1256 

7100 


CLL 



' 

1237 

4276 


JHS 

BINP 

/OO PUNCH CHECK SUM 


1260 

4264 


JHS 

PLOT 

/GO PUNCH LEAOER TRAILER 


1261 

5623 


JHP 

I BPUN 

/EXIT ANO OONE WITH TAPE 


1262 

6026 

HJPUNi 

PLS 


/HIGH SPEED PUNCH SELECTED 


1263 

3233 


JHP 

GOLEAD 

/GO PUNCH LEAOER TRAILER 


t 


i 

) 


f 


f 


r 


r 




PAl10 

V141 

24-jAN- 

►72 

23 

1264 

0000 

/ 

PLOT, 

0 


126$ 

7300 


CLA 

CLL 

1266 

1341 


TAO 

M212 

1267 

3342 


OCA 

CTR1 

1270 

1343 


TAO 

C200 

1271 

4316 


JHS 

PUN 

1272 

2342 


IS* 

CTR1 

1273 

5271 


JMP 

.•2 

1274 

7300 


CLA 

CLL 

1275 

5664 


JMP 

I PLOT 

1276 

0000 

BINP, 

0 


1277 

3344 


OCA 

TEM1 

1300 

1944 


TAO 

TEM1 

1301 

7012 


RTR 


1302 

7012 


RTR 


1303 

7012 


RTR 


1304 

0345 


ANO 

SL7 

1305 

4316 


JMS 

PUN 

1306 

1336 


TAO 

CKSM 

1307 

3336 


OCA 

CKSM 

1310 

1344 


TAO 

TCM1 

1311 

0946 


ANO 

SL6 

1312 

4916 


JMS 

PUN 

1313 

1336 


TAO 

CKSM 

1314 

3936 


OCA 

CKSM 

1315 

5676 


JMP 

I BINP 

1316 

0000 

PUN. 

0 


1317 

3947 


OCA 

AQ8AV2 

1320 

1777* 


TAO 

EXTSAV 

1321 

7006 


rtl 


1322 

7700 


SHA 

CLA 

£323 

9331 


JMP 

HISPEO 

1324 

1347 


TAO 

AC8AV2 

1329 

6041 


TSF 


1326 

5325 


JMP 

.•1 

1327 

6046 


TLS 


1330 

5716 


JMP 

I PUN 

1331 

1347 

HISPEO, 

TAD 

APSAV2 

1332 

6021 


PSF 

1333 

5332 


JMP 

.•1 

1334 

6026 


PLS 


1339 

5716 


JMP 

I PUN 

1336 

0000 

CKSH, 

0 


1337 

0000 

IA. 

0 


1340 

0000 

FA, 

0 


1341 

7566 

M212, 

-212 


1342 

0000 

CTR1, 

0 


1343 

0200 

C200i 

200 


1344 

0000 

TEN!, 

0 


1345 

0177 

SL7, 

177 


1346 

0077 

SLA. 

77 



MGE W3 


/TO PUNCH fit OCTAL* LEADEN TRAILER 

/leaden trailer CODE 
/PUNCH 

/EXIT 


/FIRST TO OCTAL OtOITS IN AC 5-U 
/PUNCH 


/LAST TWO OCTAL DIBITS IN AC 6«U 
/PUNCH 


/EXIT 


/SAVE CODE TO BE HUNCHED 
/OCT OPERATION SWITCHES 

/SWRStJ, IS LOM SPEED PUNCH 
/HIGH SPEED PUNCH SELECTED 
/OCT CODE TO BE PUNCHED 


/PUNCH 

/EXIT 

/OCT CODE TO BE PUNCHED 


/PUNCH 

/EXIT 






* 






* 






I 


7 


4 
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V141 
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1347 

0000 

ACSAV2. 0 

1390 

1600 

STRBUFi inbuf 

1391 

0000 

8CNTi3i 0 

1332 

0000 

BCNT14, 0 

1371 

0340 

/ 

1372 

1106 


1373 

1103 


1374 

0213 


1379 

0342 


1376 

1104 


1377 

0337 



1400 

PAGE 

/ 

/THE NEXT PAGE IS RESERVED FOR BINARY LOADER 
/STORAGE AREA WHILE THE DIAGNOSTIC IS BEING RUN'. 

1400 

1400 

SAVBlNi SAVBIN 


1600 

PAGE 

/ 

/THE NEXT 40 0CTAL LOCATIONS ARE RESERVED 
/FOR THE BOOOTSTRAP BUFFER 

1600 

1600 

INBUF. INBUF 
/ 

S 


) 


/ 
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2000 

0100 


0200 

11111111 

11111111 

11111111 

llllllll 

mum 

mum 

iiiiiiii 

iiiiiiii 


0300 

11111111 

11111111 

11111111 

llllllll 

UU1110 

00000000 

00000011 

llllllll 

<- 

0400 

11111111 

11111111 

11111111 

llllllll 

ilium 

miiiii 

muili 

iiiiuu 


0500 

11111111 

11111111 

11111111 

llllllll 

liuuu 

liuuu 

iiiiiiii 

00 liuu 

-■ 

0600 

11111111 

11111111 

11111111 

llllllll 

miiiii 

mimi 

iiiiiiii 

ilium 


0700 

11111111 

11111111 

11111111 

llllllll 

mum 

liuuu 

llilliil 

10illlll 


1000 

11111111 

11111111 

11111111 

llllllll 

uiiiiu 

liuuu 

illlilll 

uliuu 

> 

1100 

11111111 

11111111 

llllllll 

llllllll 

ilium 

11111000 

00000000 

ilium 


1200 

11111111 

11111111 

11111111 

llllllll 

mum 

llllUU 

llllllll 

ilium 

■"i 

1300 

11111111 

11111111 

llllllll 

llllllll 

mum 

11100000 

00000000 

aiiiuti 


1400 

10000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 


1500 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 


1600 

10000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 


1700 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 



2000 

2100 

2200 

2300 

2400 

2300 

2600 

2700 


3000 

3100 

3200 

3300 ^ 

3400 

3300 

3600 

3700 




t 



V141 


24-JAN-72 
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/ FAL10 


4000 

4100 

4200 

4300 

4400 

4500 

4600 

4700 


5000 

5100 

5200 

5300 

5400 

5500 

5600 

5700 


6000 

6100 

6200 

6300 

6400 

6500 

6600 

6700 


7000 

7100 

7200 

7300 

7400 

7500 

7600 

7700 


PAL10 

V141 

24. JaN-72 

23136 

PAGE 1»17 

ACER*! 

0750 

HIPUN 

1262 

TEM1 

ACERR2 

1033 

H I SPED 

1331 

TE9T1 

*CER*3 

1067 

hltloc 

0341 

TC9T2 

ACSAV1 

0563 

!A 

1337 

TE5T3 

ACSAV2 

1347 

IN8UF 

1600 

T10T4 

AOOHlT 

0545 

INHDMP 

0274 

tcxtlg 

amount 

0340 

K0007 

0765 

TEXTMB 

0CNT1 

1077 

K0010 

0764 

TH3FL0 

BCNT10 

1101 

K0070 

1104 

toflo 

BCNTH 

1102 

K0207 

0552 

T9T0P 

8CNT12 

1103 

K0212 

0551 

TYPBUF 

BCNT13 

1351 

K0215 

0550 

TYPE 

9CNT14 

1352 

K0240 

0554 

wathlt 

BCNT2 

1100 

K0260 

0553 

X0EGIN 

8CNT3 

0766 

K7600 

1105 

XCHK 

BCNT4 

0767 

K7774 

0547 

xinbuf 

8CNT5 

0773 

KCOF 

0342 

XLOD 

BCNT6 

0564 

KCHK 

0760 


BCNT7 

0565 

khlt 

0343 


BCNT0 

0566 

KLOO 

0761 


BCNT9 

0567 

lastlc 

0762 


begin 

0200 

LENGTH 

0555 


BELL 

0514 

LOOCHK 

0743 


binflo 

1013 

LOOMEM 

0643 


binp 

1276 

M212 

1341 


90TME8 

1107 

MEMGO 

0600 


SPUN 

1223 

M0V8IN 

1000 


BUFBIN 

1106 

Movaur 

0400 


C200 

1343 

MQL 

7421 


CAF 

6007 

NEWFLO 

0660 


PHKAOO 

0520 

OCTEL 

0464 


chkhlt 

1023 

oppflo 

1215 


chkmeh 

0666 

PLOT 

1264 


CHKTH9 

0710 

ppcflo 

0213 


CK9M 

1336 

PUN 

1316 


COMPAQ 

1043 

PUNL 

1243, 


C0M9TR 

1053 

PCSTP3 

0266 


QT01 

1342 

PC9TP4 

0323 


EN0T9T 

0714 

PPL0IN 

1200 


EPHLT1 

0753 

SAFAOO 

0596 


E9HLT2 

1030 

3AV0I-N 

1400 


CPMLT3 

1072 

8ETFL0 

1019 


EXIT 

0640 

3L6 

1346 


EXtCHK 

9615 

3L7 

1349 


EXfSAV 

0337 

SPCCHK 

0729 


fa 

1340 

8TPA0P 

0336 


F10PA9 

0944 

9TPBLK 

0399 


FLOAMN 

0763 

STPBUF 

1390 


flochk 

0742 

STPCHK 

0613 


FtOOO 

0740 

3TPTUP 

0994 


F9MFIO 

0703 

0TPTYP 

0441 


COLEAO 

1233 

T0CGIN 

0744 




( 


/ 


PAH0 V141 24-JAN-7J 


29136 M« i*4l 


ERRORS DETECTCOl 0 
LINKS GENERATED I 63 


RUN-TIMES 7 SECONDS 
2K CORE USED 


PAL10 V141 


23137 RAGE 1 


/MI8-E BOOTSTRAP DIAGNOSTIC 
/ 

/COPYRIGHT 1972, DIGITAL EQUIPMENT CORPORATION 
/ 

CAP«6007 

MQL»7421 

/ 

/THE LOW VERSION STARTING ADDRESS IS 0200, 

/THE HIGH VERSION STARTING ADDRESS IS 4200', 

/ 

/OPERATION SWITCH REGISTER FOR MI8-E DIAGNOSTIC 
/ 

/$WR0«0 VERIFICATION by octal dump type out 

/SWR0I1 VERIFICATION by binary object tape 

/SWRiil PUNCH binary object tape 

/SWR211 LOW SPEED PUNCH 

/SWR2«0 HIGH SPEED PUNCH 

/SWR6-S FIELD OF BINARY LOADER 

/SWR9-H amount or extended FIELDS 

/ 

/ROUTINE TO SAVE THE INITIAL BLOCK ADDRESS 
/AND THE STARTUP ADDRESS OF THE BOOTSTRAP, 

/SAVE BINARY LOADER IN PROGRAM BUFFER AREA', 

/CHECK TO MAKE SURE THAT ADDRESSES DO NOT INTERFER 
/WITH THE LOCATIONS OF THE DIAGNOSTIC, 

/ALSO SAVE OPERATION SWITCHES, 

/ 



4200 

7604 

BEGIN, 

LAS 



r 

4201 

3335 


DCA 

strblk 

/SAVE START OF BOOtSTRAP BLOCK 


4202 

7402 


HLT 




4203 

7604 


LAS 



r 

4204 

3336 


DCA 

STRAOO 

/SAVE STARTUP ADDRESS OF BOOTSTRAP 


4205 

7402 


HLT 




4206 

7604 


LAS 



r 

4207 

3337 


DCA 

EXTSAV 

/SAVE 0PERATIN8 SWITCHES 


4210 

6224 


RIF 




4211 

1342 


TAD 

KCOF 

/MAKE PRESENT PJELB COF 

r 

4212 

3213 


DCA 

PREFLO 



4219 

0000 

preflo, 

0 




4214 

1335 


TAD 

STRBLK 

/GET START OF BLOCK 

r 

4215 

1340 


TAD 

AMOUNT 

/OET LENGTH OP BLOCK ♦£ 


4216 

3341 


DCA 

HLTLOC 

/MAKE HALf LOCATION 


4217 

1344 


TAD 

FIRPA3 

/GET PASS FLAG 

r 

4220 

7640 


SiA 

CLA 

/IS IT FIRST PASS 


4221 

4777' 


JMS 

MOVBJN 

/yes, move the binary Loader 


4222 

4776' 


JMS 

CHKAOO 

/CHECK THAT SWltCHES DO NOT CONFLICT 


/LOAD MEMORY .WITH DATA PATTERN 2525 ANP SIGNAL 
/OPERATOR TO TOGGLE SWITCH AS MEMORY IS BEING CHECKED', 
/SWITCH SHOULO BE TOGGLED AT LEAST 10 TIMES 
/OPERATOR MUST HIT TTY KEY TO EXIT TO NEXT TEST, 

/THIS WILL VERIFY THAT THE PROCESSOR AND THE MEMORY 


10 



PAL10 


Vl«l 24-JAN-72 25137 PAPE 1-1 


/WILL NOT BE AFFECTED BY BOOTSTRAP WHEN THE COMPUTER 

/IS running. 


4223 

6007 

/ 

TESTl, CAF 

/CLEAR THE WORLD 

4224 

3344 

DCA FIRPAS 

/GET JHS FOR LOAD 

4225 

1746 

TAD I XLOO 

4226 

3775' 

OCA LODCHK 

/SETUP FOR LOAD 

4227 

4774' 

JMS MEMGO 

/LOAD MEMORY WITH DATA PATTERN 

4230 

2525 

2525 

/OATA PATTERN TO BE USED 

4231 

4773' 

JMS BELL 

/signal operator 

4232 

1745 

TAD I XCHK 

/GET JMS FOR CHECK 

4233 

3775' 

OCA LODCHK 

/SETUP FOR CHECK MEMORY 

4234 

4774' 

JMS MEMGO 

/CHECK MEMORY 

4235 

2525 

2525 

/COMPARE TO THIS PATTERN 

4236 

6031 

KSF 


4237 

5234 

JMP .-3 

/WAIT FOR OPERATOR TO CONTINUE 


/LOAD MEMORY WITH DATA PATTERN 5252 AND SIGNAL 
/OPERATOR TO TOGGLE SWITCH AS MEMORY I® BEING CHECKED*, 
/SWITCH SHOULD BE TOGGLED AT LEAST 10 TIMES 
/OPERATOR MUST HIT TTY KEY TO EXIT THIS TEST 
/THIS WILL VERIFY THAT THE PROCESSOR AND THE MEMORY 
/WILL NOT BE AFFECTED BY BOOTSTRAP WHEN THE COMPUTER 
/IS RUNNING. 


/ 


4240 

7300 

TEST2, CLA CLL 


4241 

1746 

TAD I XLOO 

/GET JJ1S FOR LOAD 

4242 

3775' 

DCA LODCHK 

/SETUP FOR LOAD MEMORY 

4243 

4774' 

JMS MEMGO 

/LOAD MEMORY WITH DATA PATTERN 

4244 

5252 

5252 

/DATA -PATTERN TQ BE USED 

4245 

4773' 

JMS BELL 

/SIGNAL OPERATOR 

4246 

1745 

TAD I XCHK 


4247 

3775' 

OCA LODCHK 

/SETUP FOR CHECK MEMORY 

4250 

4774' 

JMS MEMGO 

/CHECK MEMORY 

4251 

5252 

5252 

/compare to THIS PATTERN 

4252 

6031 

KSF 


4253 

5250 

JMP .-3 

/WAIT FOR OPERATOR TO CONTINUE 


/LOAD MEMORY WITH DATA PATTERN 2525, 

/LOAD A HALT INTO BOOTSTRAP BUFFER +1 JUST 
/INCASE THE BOOTSTRAP DOESN'T MANG, 

/THEN GO HALT AND WAIT FOR THE OPERATOR TO 
/TOGGLE THE BOOTSTRAP SWITCH ONCE. 

/THE OPERATOR MUST THEN RESTART THE PROGRAM AT 
/LOCATION 0264/4266. 


/ 


4254 

7300 

TEST3, 

CLA 

CLL 



4255 

1746 


TAO 

I XLOD 

/GET JMS FOR LOAD 


4256 

3775' 


OCA 

LODCHK 

/SETUP FOR LOAD 


4257 

4774' 


JMS 

MEMGO 

/LOAD MEMORY WITH DATA 

PATTERN 

4260 

2525 


2525 



4261 

1343 


TAO 

KHLT 

/STORE WAIT HALT At END 


4262 

3734 


OCA 

I WATHLT 

OF 01 AG, 

4263 

1343 


TAD 

KHLT 



4264 

3741 


DCA 

i hltloc 

/STORE HLT IN BOOTSTRAP 

BLOCK *1 


PAL 10 V141 

4265 5734 


24. JAN-72 


23137 PAGE 1-2 


JMP I WATHLT 


/GO halt AND WAIT FOR OPERATOR TO 
/TOGGLE SWITCH AND RESTART PROGRAM 


4266 

7300 

RESTR3, 

CLA 

CLL 

4267 

1337 


TAD 

EXTSAV 

4270 

7710 


SPA 

CLA 

4271 

5274 


JMP 

INHDMP 

4272 

4772' 


JMS 

movbjf 

4273 

4771' 


JMS 

TYPBUF 

4274 

1745 

INHDMP, 

TAO 

I XCHK 

4275 

3775' 


DCA 

LODCHK 

4276 

7320 


CLA 

CLL CML 

4277 

4774' 


JMS 

MEMGO 

4300 

2525 


2525 

4301 

4770' 


JMS 

CHKHLT 

4302 

4767' 


JMS 

compar 

4303 

1337 


TAO 

EXTSAV 

4304 

7004 


RAL 


4305 

7700 


SMA 

CLA 

4306 

5311 


JMP 

TE3T4 

4307 

7402 


HLT 


4310 

4766' 


JMS 

SPUN 


/ 


/CHECK MEMORY NOT OCCUPIED BY THE BOOTSTRAP 
/FOR CORRECT PATTERN OF 2525, IF OPERATOR HAS 
/INHIBITED VISUAL PRINT OUT ASSUME THAT THE 
/BINARY OBJECT TAPE OF THE BOOTSTRAP INFORMATION 
/HAS BEEN LOADED INTO CORE AND COMPARE THIS OBJECT 
/TO THE INFORMATION BOOTSTRaPEO INTO CORE, 

/IF VISUAL CHECK PRINT OUf BOOTSTRAP BUFFER INFORMATION, 

/IF OPERATOR HAS SELECTED TO PUNCH NEW OBJECT TAPE 
/HALT AND WAIT FOR OPERATOR TO PREPARE THE 
/PAPER TAPE PUNCH SELECTED, 

/OPERATOR MUST HIT CONTINUE TO PUNCH TAPE, 

/ 

STR3, CLA CLL 

/GET OPERATION SWITCHES 
/SWR0«i IS INHIBIT OCTAL DUMP / 
/INHIBIT OCTAL DUMP OF BOOTSTRAP 
/MOVE BOOTSTRAP fO BUFPER AREA 
/TYPE OCTAL; DUMP OF BOOTSTRAP 
/GET JMS rOR CHECK 
/SETUP FOR CHECK MEMORY 

/CHECK MEMORY OTHER THAN BOOTSTRAP 

/check hlt STORES !n BLOCK Tl 
/compare bootstrap to buffer area 

/GET OPERATION SWItCHES 

/$WR1»1 IS PUNCH NEW TAPE 
/INHIBIT TAPE ANb GO TO NEXT TEST 
/WAIT FOR OPERATOR TO PREPARE PUNCH 
/OPERATOR MUST HIT CONTINUE TO PUNCH 

/ 

/LOAD MEMORY WITH DATA PATTERN 5252, 

/LOAD A HALT INTO BOOTSTRAP BUFFER +1 JUST 
/INCASE T^E BOOTSTRAP DOESN'T HANG, 

/THEN GO HALT AND WAIT FOR THE OPERATOR TO 
/TOGGLE THE BOOTSTRAP SWITCH ONCE, 

/THE OPERATOR MUST THEN RESTART THE PROGRAM AT 
/LOCATION 0323/4323. 

/ 

/ 

ST4, CLA CLL 

/GIT JMS FOR LOAD 
/SETUP FOR LOAD 

/LOAD MEMORY WITH DATA PATTERN 

/STORE WAIT HALTNAt END OF OIAO, 

/STORE A HLT IN BLOBK *1 
/GO HALT AND WAIT FOR OPERATOR TO 
/TOGGLE SWITCH AND RESTARt PROGRAM 


4311 

7300 

TEST4, CLA 

CLL 

4312 

1746 

TAO 

I XLOD 

4313 

3775' 

OCA 

LODCHK 

4314 

4774' 

JMS 

MEMGO 

4315 

5252 

3232 

4316 

1343 

TAO 

KHLT 

4317 

3734 

OCA 

I WATHLT 

4320 

1343 

TAO 

KHLT 

4321 

3741 

DCA 

I HLTLOC 

4322 

5734 

JMP 

I WATHLT 


n 



PAL10 V141 
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/CHECK MEMORY NOT OCCUPIED BY THE BOOTJTRAR 
/FOR A CORRECT PATTERN OF 9252, THEN COMPARE 
/TME BOOTSTRAP INFORMATION TO THAT FOUND IN 
/TEST 3 i 


4323 

7300 

RESTR4, 

CLA CLL 

4324 

1745 


TAD I XCHK 

4325 

3775' 


DCA LODCHK 

4326 

7320 


CLA CLL CML 

4327 

4774' 


JMS MEMGO 

4330 

5252 


5252 

4331 

4770' 


JMS CHKHLT 

4332 

7402 


hlt 

4333 

5223 


JMP TEST! 

4334 

5640 

wathlt. 

INBUF *40 

4335 

0000 

strblk. 

0 

4336 

0000 

strado, 

0 

4337 

0000 

extsav, 

0 

4340 

0040 

AMOUNT. 

0040 

4341 

0000 

HLTLOC. 

0 

4342 

6201 

KCDF, 

CDF 

4343 

7402 

KHLT, 

hlt 

4344 

7777 

FIRPaS, 

7777 

4345 

4760 

XCHK, 

KCHK 

4346 

4761 

XLOD, 

KLOD 

4366 

5223 

/ 


4367 

5043 



4370 

5023 



4371 

4421 



4372 

4400 



4373 

4514 



4374 

4600 



4375 

4743 



4376 

4520 



4377 

5000 




4400 

PACE 




/ROUTINE 

: TO MOVE B0( 



/BOOTSTRAP AREA TO f 

4400 

0000 

movbuf, 

0 

4401 

1777' 


TAD STRBLK 

4402 

3364 


DCA BCNT6 

4403 

1776' 


TAD AMOUNT 

4404 

7041 


CIA 

4405 

3365 


OCA BQNT7 

4406 

1362 


TAD XJNBUF 

4407 

3366 


DCA 9CNT8 

4410 

1764 


TAD I BCNT6 

4411 

3766 


DCA I 8CNTB 

4412 

2364 


IS2 BCNT 6 

4413 

7000 


NOP 


/OET JMS FOR CHECK 
/SETUP FOR CftCGK MEMORY 

/CHECK MEMORY OTHER THAN BOOTSTRAP 

/CHECK HI.T IN BLOCK *1 
/END OF TEST 
/LOOP ON PROGRAM 



/ PAL10 

V141 

24-JAN 

-72 23137 PACE 1*4 



4414 

2366 


JSH BCNT8 

) 


4415 

7000 


NOP 



4416 

2365 


ISH BCNT7 



4417 

5210 


JMP MOVBUF *10 



4420 

5600 


JMP I MOVBUF 





/ROUTINE TO TYPE BOOTSTRAP DATA INFORMATION 



4421 

0000 

TYP8UF 

i 0 



4422 

1360 


TAD TEXTMS 


r 

4423 

3364 


OCA BCNT 6 



4424 

1361 


TAD TEXTLG 



4425 

3365 


. DCA BCNT7 


r 

4426 

1764 


TAD I BCNT6 



4427 

4305 


JMS TYPE 



4430 

2364 


ISZ BCNT6 


r 

4431 

7000 


NOP 



4432 

2365 


ISZ BCNT7 



4433 

5226 


JMP TYPBUF +5 


r 

4434 

1777' 


TAO SJRBLK 



4435 

3364 


DCA BCNT6 



4436 

1776' 


TAD AMOUNT 


r 

4437 

7041 


CIA 



4440 

3365 


DCA BCNT7 

> 


4441 

1364 

STRTYP, 

, TAD BCNT6 


r 

4442 

4264 


JMS OCTEL 



4443 

1347 


TAO K7774 



4444 

3366 


DCA BCNT8 


r 

4449 

1354 


TAD K0240 



4446 

4305 


JMS TYPE /MAKE A SPACE 



4447 

2366 


ISZ B5NT8 



4450 

5245 


JMP ,*3 



4451 

1764 


TAO I BCNT6 



4452 

4264 


JMS OCTEL 


< 

4453 

1350 


TAO K0215 



4454 

4305 


JMS TYPE 

*> 


4455 

1351 


TAD K0212 



4456 

4305 


JMS TYPE 



4457 

2364 


ISZ B?NT 6 



4460 

7000 


NOP 



4461 

2365 


ISZ BCNT? 



4462 

5241 


JMP STRTYP 


( 

4463 

5621 


JMP I TYPBUF 





/ROUTINE -TO TYPE OCTAL INFORMATION, 


f 

4464 

0000 

octel, 

0 



4465 

7106 


RTL CLL 

1 


4466 

7006 


rtl 


♦ 

4467 

3363 


OCA ACSAV1 



4470 

1347 


TAO K7774 

J 


4471 

3367 


DCA BCNT9 


t 

4472 

1363 


TAO ApSAVl 



4473 

0775' 


ANO K0007 

J 


4474 

1353 


TAO K0260 



4 



PAL10 

V141 
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4473 

4305 


JMS 

TYPE 



4476 

1363 


TAD 

AC8AV1 



4477 

7006 


rtl 




4500 

7004 


RAL 




4501 

3363 


DCA 

ACSAV1 



4502 

2367 


ISI 

BCNT9 



4503 

5272 


JMP 

,-11 



4504 

5664 


JMP 

I OCTEL 



4505 

0000 

TYPE, 

0 




4506 

6046 


TLS 




4507 

6041 


tsp 




4510 

5307 


JMP 

,•1 



4511 

6042 


Ter 




4512 

6032 


KCC 




4513 

5705 


JMP 

I TYPE 



4514 

0000 

BELL, 

0 




4515 

1352 


TAD 

K0207 



4516 

4305 


JMS 

TYPE 



4517 

5714 


JMP 

I BELL 





/ROUTINE TO 

CHECK THAT ADDRESSES SUBMITTED BY OPERATOR 




/DO NOT 

CONFLICT WITH DIAGNOSTIC, IF SWITCH ERROR OCCURES 




/THE COMPUTER SHOULD HALT, 

, RE- SET SWITCH FOR STARTING 




/ADDRESS OP 

BLOCK AND HIT 

CONTINUE TO Try AGAIN', 


4520 

0000 

chkadd. 

0 




4521 

7300 


CLA 

CLL 



4522 

1356 


TAD 

safaod 

/LAST LOCATION USED 


4523 

7040 


CMA 




4524 

1777' 


TAD 

strblk 

/GET START OF BOOTSTRAP BLOCK 

4525 

7630 


SEL 

CLA 

/DOES BLOCK INTERFER WITH 

DUG, 

4526 

5334 


JMP 

STRTUP 

/OK , CHECK STARTUP ADDRESS 

4527 

1357 


TAD 

XBEGJN 

/GET FIRST LOCATION USED 


4530 

7041 


CIA 




4531 

1774' 


TAD 

hltloc 

/COMPARE TO THIS VALUE 


4532 

7630 


SEL 

CLA 

/DOES BLOCK INTERFER WITH 

0 1 AG , 

4533 

5345 


JMP 

addhlt 

/STARTING BLOCK ADDRESS ERROR 

4534 

1777' 

STRTUP, 

TAD 

strblk 

/GET START OF BLOCK 


4535 

7041 


CIA 


1 


4536 

1773' 


TAD 

STRADD 

/GET STARTUP ADDRESS 


4537 

7510 


SPA 


/WAS ADDRESS OK 


4540 

5345 


JMP 

addhlt 

/NO, ERROR 


4541 

7161 


CIA 

STL 



4542 

1355 


TAD 

LENGTH 

/LENGTH OF BLOCK 


4543 

7620 


SNL 

CLA 

/WAS STARTUP ADDRESS OK 


4544 

5720 


JMP 

I CHKADD 

/YES, START TEST 


4545 

7602 

addhlt, 

HLT 

CLA 

/SWITCH SETTING ERROR 


4546 

5772' 


JMP 

BEGIN 

/RESET SWITCH REGISTER TO 

START OF 






/BLOCK ANO HIT CONTINUE TO 

TRY AGAIN 

4547 

7774 

K7774, 

7774 



4550 

0215 

K0215, 

0215 



4551 

0212 

K0212, 

0212 




PAL10 
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4552 

0207 

K0207, 

0207 



4553 

0260 

K0260, 

0260 



4554 

0240 

K0240 i 

0240 



4555 

0037 

LENGTH, 

0037 



4556 

5777 

SAFADD, 

INBUF +177 



4557 

4177 

XBEGIN, 

begin -1 



4560 

5107 

textms, 

botmes 



4561 

7732 

textlg, 

7732 



4562 

5600 

XINBUF, 

INBUF 



4563 

0000 

ACS AVI , 

0 



4564 

0000 

BCNT6, 

0 



4565 

0000 

BCNT7, 

0 



4566 

0000 

BCNT8, 

0 



4567 

0000 

BCNT9, 

0 



4572 

4200 

/ 




4573 

4336 





4574 

4341 





4575 

4765 





4576 

4340 





4577 

4335 






4600 

PAGE 






/ROUTINE TO DETERMINE 

fields 

TO BE CHE5KE0 

4600 

0000 

MEMGO, 

0 



4601 

1777' 


TAD PREFLO 


/GET PRESENT FIELD COF 

4602 

3346 


DCA FLDGO 


4603 

7630 


S2L CLA 



4604 

5325 


JMP SPECHK 


/CHECK FOR AU SUT PROG', 4 BOOTSTRAP 

4605 

1776' 


TAD XBEGIN 


/GET STARTING ADDRESS OF CHECK 

4606 

3345 


DCA TSTOP 


4607 

1362 


TAD LASTLC 


/GET ENDING ADDRESS OF CHECK 

4610 

3344 


DCA TBEGIN 



4611 

4342 


JMS FLDCHK 


/ENTER ROUTINE TO LOAD OR CHECK 

4612 

7340 


CLA CLL CMA 



4613 

3345 


DCA TGTOP 


/START At 0 

4614 

3344 


DCA TBEGIN 


/END AT 0 

4615 

1775' 

EXTCHK, 

TAD EXTSAV 


4616 

03«5 


AND K0007 



4617 

7450 


SNA 


VIS IT TEST EXTENDED MEMORY 

4620 

5240 


JMP EXIT 


/NO DO NOT TEST EXTENDED MEMORY 

4621 

7040 


CMA 



4622 

3363 


DCA ‘FLDAMN 


/SETUP FOR FIELDS TO TEST 

4623 

3366 

STRCHK, 

DCA BCNT3 


/START WITH 0 

4624 

1366 


TAD BCNT3 


4625 

1774' 


TAD KCDF 



4626 

3346 


DCA FLDGO 


/FIELD TO BE CHECKED 

4627 

6224 


RIF 



4630 

7041 


CIA 



4631 

1366 


TAD BCNT3 



4632 

7640 


SEA CLA 


/ARE WE IN THIS FIELD 

4633 

4342 


JMS FLDCHK 


/NO, ENTER ROUTINE TO LOAD OR CHECK 

4634 

1366 


TAD BCNT3 


4635 

1364 


TAD K0010 




/ 3 



1 0 ' • 1 2 * 




-«v 


4636 2363 

4637 5223 

4640 7300 

4641 2200 

4642 5600 


4 &W' : 0000 
46W: 1777" 
4 54^ 3 £62 
4^4fe 16'43 ' 
4W; 3347 
46 5 5£ : 22.43- J 
4351 1643 

4652 . 3370 

4653 2243. 

4654 1643 

4635 3?60 

465.6 2243 

4637 1600 

4 66.0 0000 

4641 3767 

4662 0000 

4663 4314 

4664 5257 

4665 5643 


4666 0000 

4667 1777 ' 

4670 3310 

4671 1666 

4672 3367 

4673 2266 

4674 1666 

4675 3370 

4676 2266 

4677 1666 

4700 3303 

4701 2266 

4702 1600 

4703 0000 

4704 7041 

4735 1767 

4706 7640 

4707 5350 

4710 0000 

4711 4314 

4712 5332 

4713 5666 


EXIT,.' 


/ 

LODMEM, 


position to That founo in 


newfld, 

THSFtO, 


/ 

CHKMEM, 


FRMFlD. 


CHKTHS, 


/ROUTINE TO 
/ 


JMP 

I MEMGO 

/EXIT 

; to 

LOAD MEMORY WITH 

DATA FOR CHECK 

0 : 

• ".HK 

/SETUP FOR CHECK MEMORY 

TAD 
DC A 

PRf^LjT' - 
THSPLO- 

boc 

TAD .1 LODMEJ4 
DC A BCNT4 * 

/check 'fit iWoW A D0 ** S * 

ISH LODMEM 

/END OF TEST 

TAO 

I LOOMEM 


DC A 

BCNT5 . 


ISH 

LODMEM 


TAD 

I LODMEM 

/GET FIELD TO GO 

DCA 

newfld 


ISH 

LODMEM 


TAD 

I MEMGO 

/GET DATA PATTERN 

0 


/MODIFIED 5Y TEST 

DCA 

I BCNT4 


0 


/MODIFIED BY TEST 

JMS 

ENDTST 

/IS IT ENO or TEST 

JMP 

NEWFLD -1 

/NO, CONTINUE 

JMP 

I LODMEM 

/YES, EXIT 

; TO 

CHECK MEMORY FOR 

CORRECT DATA PATTERN’, 

0 

TAD 

preflo 

/GET PRESENT FIELD 

DCA 

CHKTHS 


TAD 

I CHKMEM 

/GET STARTING ADDRESS 

DCA 

BCNT4 


ISZ 

CHKMEM 


TAD 

I CHKMEM 

/GET ENDING ADDRESS 

DCA 

BCNT5 


ISZ 

CHKMEM 


TAD 

DCA 

I CHKMEM 
FRMFLD ' ■ 

inf^oWm 0 TEsr 

ISZ 

CHKMEM ' ‘’ODRA* 

BUFFER area, 

TAD 

I MEMGO 

/GET EXPECTED DATA 

C f A 

tad 

I BCNT4 

/GET DATA PATTERN 

SZA 

CLA 

/ARE THEY THE SAME 

JMP 

ACERR1 

/NO, INDICATE 

0 


/MODIFIED BY TEST 

JMS 

ENDTST 

/IS IT END OF TEST 

JMP 

FRMFLD -1 

/NO, CONTINUE 

JMP 

I CHKMEM 

/YES EXIT 


CHECK FOR ENO OF TEST 


PALI? 

VI 41 

24.JAN.72 

23*37 

) PA-Ge^.^4 



4714 

3 000 

ENDTST, 0 





4715 

1367 

TAD 

BCNT4 

/GET ENDING ADDRESS 



4716 

7041 

CIA 




4717 

1370 

TAD 

BCNT5 

/GET PRESENT ADDRESS 



4 722 

7650 

SNA, 

CLA , 

/IS it last address to 

TEST 

4721 

2314 

isz 

ENDTST 

/YES, EXIT 



4722 

2367 

' M ISZ 

BCWT4 g — 

fSTRA* DATA INFORMATION 



4723 

5714 

JMP 

I ENDTST 

/EXIT 



4 724 

5714 

r JMP 

I ENDTST 

/EXIT 





/ROUTINE TO< TSBT.^LL BUT PROG, * BOOTSTRAP 



4725 

1362 

SPECHK, TAD 

lastlc 

/GET START OF CHECH 



4726 

3344 

DCA 

T BE DJN 



4727 

7340 

CLA 

CLL CMA 




4730 

1773' 

TAO 

STRBLI4 

/GET END OF CHECK 



4731 

3345 

DCA 

TSTOP 



4732 

4342 

JMS 

FLDCHK 

/ENTER ROUTINE TO L'QAO 

OR 

CHECK 

4733 

7301 

CLA 

CLL I AO 

4734 

1772' 

TAO 

HLTLOC 




4735 

3344 

DCA 

TBEGIN 




4736 

1776' 

TAO 

XBEGJN 

/GET END OF CHICK 



4737 

3345 

DCA 

TSTOP 



4740 

4342 

JMS 

FLDCHK 

/ENTER ROUTINE TO LO AO 

OR 

CHECK 

4 7/44 

5215 

JMP 

EXTCHK 

/EXIT 



/ROUTINE TO 

LOAD OR CHECK MEMORY 



4742 - 

0000 

FIOCHK, 0 


i 



4743 

4744 

0000 

0000 

LOOCHK, 0 
T8EGIN, 0 





47^5 

0000 

TSTOP, 0 


/MODIFIED by test 



4746 

0000 

FLDGO, 0 


/MODIFIED BY TESt 



4747 

5742 

JMP 

I flochk 

/EXIT 




/ROUTINE TO DISPLAY CORE PATTERN ERRORS, 

/IP AN ERROR OCCURES THE MACHINE WILL 
/HLT WITH BAD ADDRESS IN MQ AND BAD DATA IN 
/HIT CONTINUE, 

/THE MACHINE WILL HLT WITH EXPECTED DATA IN AC*. 
/ 


4750 

1367 

ACERR1, 

TAD 

BCNT4 

4751 

7421 


MOL 


4752 

1767 


TAD - 

I BCNT4 

4753 

7402 

erhlu, 

HLT 


4754 

7300 


CLA 

CLL 

4705 

1600 


TAO 

I MEMGO 

4756 

7402 


HLT 

4757 

5356 


JMP 

.•1 

4760 

4266 

KCHK, 

JMS 

CHKMEM 

4761 

4243 

KLOQ, 

JMS 

LODMEM' 

4762 

5641 

lastlc, 

INBUF Ml 

4763 

0000 

floamn, 

0 


4764 

0010 

K0010, 

0010 


/GET BAD ADDRESS 
/LOAD AC TO HQ 
/GET BAD OAfl PAttfeRN 
HA f Map DATA PATTERN FOUND 

/GET GOOD NUMICR 

/AC ■ EXPECTED DATA PATTERN 



PAL1B 

V141 
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72 
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4765 

0007 

K0007. 

0007 



4766 

0000 

BCNT3, 

0 




4767 

0000 

BCNT4, 

0 




4770 

0000 

BCNT5i 

0 




4772 

4341 

/ 





4773 

4335 






4774 

4342 






4775 

4337 






4776 

4557 






4777 

4213 







5000 

PAGE 







/ROUTINE TO 

MOVE THE BINARY 

LOADER 

5000 

0000 

MOVB I N $ 

0 




5001 

1306 


TAD 

BUFBIN 



5002 

3277 


DCA 

BCNTl 


/SETUP BINARY LOADER BUFFER 

5003 

1777 ' 


TAO 

PREFLO 



5004 

3215 


DCA 

setfld 



5005 

1305 


TAO 

K7600 



5006 

3300 


DCA 

BCNT2 


/SETUP FOR BINARY LOADER 

5007 

1776' 


TAD 

EXTSAV 



5010 

0304 


and 

K0070 


/MASK 6.8 

5011 

1775' 


TAD 

KCDF 



5012 

3213 


DCA 

binfld 


/field of binary loader 

5013 

0000 

binfld, 

0 



/MODIFIED BY TEST 

5014 

1700 


TAD 

I BCNT2 


/GET BINARY WORD 

5015 

0000 

SETFLO, 

0 



/MOD J F I ED BY TEST 

5016 

3677 


DCA 

I 8CNT1 


/store in buffer area 

5017 

2277 


ISH 

BQNT1 



5020 

2300 


ISH 

BCNT2 



5021 

5213 


JMP 

binfld 


/MORE WORDS TO GO 

5022 

5600 


JMP 

I MOVB I N 


/EXIT 



/ROUTINE TO 

CHECK HALT 

AFTER 

BOOTSTRAP 

5023 

0000 

chkhlt, 

0 




502< 

1774' 


TAD 

HLTLOC 


/GET HALT LOCATION 

5025 

3301 


DCA 

BCNT10 



5026 

1701 


TAD 

I BCNT10 


/GET HALT 

5027 

7041 


CIA 




5030 

1773' 


TAD 

KHLT 


/GET EXPECTED VALUE 

5031 

7650 


SNA 

CIA 


/were they The same 

5032 

5623 


JMP 

I CHKHLT 


/YES EXIT 


/ROUTINE to DISPLAY ERROR FOR SAD HLT LOCATION 
/JF AN ERROR OCCURES THE MACHINE WILL 
/HLT WITH BAD ADDRESS IN MQ AND BAD DATA JN AC', 
/HJT CONTINUE, 

/THE MACHINE WILL HLT WITH EXPECTED DATA IN AC', 


5033 

1301 

ACERR2, TAD 

BCNT10 

/GET BAD ADDRESS 

5034 

7421 

MQL 


/LOAO m,q, 

5035 

1701 

TAD 

I BCNT10 

/GET BAD DATA 


PAL10 

V141 
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3036 

7402 

ERHLT2. HLT 


/BAD DATA IN AC 

5037 

7300 

CLA 

CLL 


5040 

1773' 

TAD 

KHLT 

/GET EXPECTED DAtA 

5041 

7402 

HLT 


/EXPECTED DATA IN iC 

5042 

5241 

JMP 

.-1 



/ROUTINE TO 

COMPARE BOOTSTRAP 

TO buffer 

5043 

0000 

CQMPAR, 0 



5044 

1772' 

TAD 

STRBUF 

/GET START OF BUFFER AREA 

5045 

3301 

DCA 

BCNT10 

5046 

1771' 

TAD 

sjrblk 

/OCT START OF BOOtSTRAP AREA 

5047 

3302 

DCA 

BCNTll 

5050 

1770' 

TAD 

AMOUNT 

/GET AMOUNT TO BE CHECKED 

5051 

7041 

CIA 


5052 

3303 

DCA 

BCNT12 

/STORE IN COUNTER 

3053 

1701 

comstr, TAD 

I BCNT10 

/GET EXPECTED OAfA 

5054 

7041 

CIA 



3055 

1702 

TAD 

I BCNTll 

/GIT UNKNOWN VALUE 

5056 

7640 

S2A 

CLA 


5057 

5267 

JMP 

ACERR3 

/ERROR VALUES NOt THE SAME 

3060 

2301 

ISH 

BCNT10 


5061 

7000 

NOP 



9062 

2302 

IS2 

BCNTH 


5063 

7000 

NOP 



3064 

2303 

ISZ 

BCNT12 


5065 

5253 

JMP 

COMSTR 

/continue checking 

3066 

5643 

JMP 

I COMPAR 

/EXIT 



/ROUTINE TO 

display bootstrap 

DATA ERRORS 


/If AN ERROR OCCURES THE MACHINE WILL 

/HLT WITH BAD ADDRESS IN MQ AND BAD DATA IN *6*, 

/HIT CONTINUE, 

/THE MACHINE WILL HLT WITH EXPECTED DATA IN AC', 


/ 


9067 

1302 

ACERR3, 

TAD BCNTll 


5070 

7421 


MQL 

/LOAD AC WITH BAD ADDRESS 

9071 

1702 


TAO I-iCNTll 

/GET BAD DATA 

5072 

7402 

ERHLT3. 

HLT 

/AC IS BAD DATA 

9073 

7300 


CLA CLL 


9074 

1701 


TAO I BCNT10 

/GET EXPECTED DATA 

9075 

7402 


HIT 

/AC IS EXPECTED DAtA 

5076 

5275 


JMP _ .-1 


5077 

0000 

BCNTl, 

0 


5100 

0000 

BCNT2, 

0 


5101 

0000 

BQNT10, 

0 


5102 

0000 

BCNTll, 

0 


5103 

0000 

BCNT12, 

0 


5104 

0070 

K0070, 

0070 


5105 

7600 

K7600, 

7600 


5106 

5400 

BUFBIN, 

SAVBIN 



/ 

/TEXT FOR "MIB-E BOOTSTRAP DATA" 
/ "APRS" "DATA" 
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*) 


3107 

0215 

30TMES, 

215 

> 

3U0 

0212 


212 


5111 

0315 


315 


3112 

0311 


311 

) 

3113 

0270 


270 


3114 

0235 


295 


5113 

0305 


305 

J 

3116 

0240 


240 


5117 

0302 


302 


3120 

0317 


317 

it 

3121 

0317 


317 


9122 

0324 


324 


3123 

0323 


323 


3124 

0324 


324 


5123 

0322 


322 


3126 

0301 


301 


3127 

0320 


320 


5130 

0240 


240 


3131 

0304 


304 


3132 

0301 


301 


5133 

0324 


324 


3134 

0301 


301 


3135 

0215 


215 


3136 

0212 


212 


31,37 

0301 


301 


3140 

0304 


304 


5141 

0322 


322 


9142 

0323 


323 


5143 

0240 


240 


3144 

0240 


240 


5145 

0240 


240 


5146 

0240 


240 


5147 

0304 


304 


3150 

0301 


301 


5151 

0324 


324 


5152 

0301 


301 


5153 

0215 


215 


5154 

0212 


212 


5170 

4340 

' 



5171 

4335 




5172 

5350 




5173 

4343 



\ 

5174 

4341 




5175 

4342 




5176 

4337 



>■ 

3177 

4213 





5200 

PAGE 





/ROUTINE TO REPLACE BINARY LOADER, 

' 



/BINARY 

LOADER MAY BE REPLACED BY 




/LOAD AND STARTING ADDRESS "RPLBJN" 


5200 

1777 ' 

RPLBINi 

TAD EXTSAV /GET OPERATION SWjtCHES 



if 


r 


ir 


r 

r 


r 


r 


r 


r 


< 


« 
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ACERR1 4750 
ACERR2 5033 
ACERR3 5047 
ACSAV1 4543 
ACSAV2 5347 
ADDHLT 4543 
AMOUNT 4340 
BCNT1 3077 
BCNT10 5101 
BCNTU 5102 
BCNT12 5103 
BCNT13 5351 
BCNT14 5352 
BCNT2 5100 
8QNT3 4746 
BCNT4 4767 
BCNT5 4770 
BCNT6 4544 
BCNT7 4545 
BCNT8 4546 
8CNT9 4567 
BEGIN 4200 
BELL 4514 
8INFLO 5013 
BINP 5276 
BOTMES 5107 
BPUN 5223 
BUPBIN 5106 
C200 5343 
CAF 6007 
CHKAOD 4520 
CHKHLT 5023 
CHKMEM 4666 
CHKTHS 4710 
CKSM 5336 
COMPAR 5043 
COMSTR 5053 
CTRl 5342 
ENQTST 4714 
ERHLU 4753 
ERHLT2 5036 
ERHLT3 5072 
EXIT 4640 
EXTCMK 4615 
EXTSAV 4337 
Fa 5340 

firpas 4344 
FLOAMN 4763 
FL.DCHK 4742 
FLDGO 4746 
ERMFLD 4703 
SOLE AO 5233 
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MIPUN 5262 
MISPED 5331 
HLTLOC 4341 
IA 5337 

INBUF 5600 
INHDMP 4274 
K0007 4765 

K0010 4764 

K0070 5104 
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K0212 4551 

K0215 4550 

K0240 4554 
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K7600 5105 
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KHLT 4343 
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LASTLC 4762 
LENGTH 4555 
LOOCHK 4743 
LOOMEM 4643 
M212 5341 
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MOVBIN 5000 
MOVBUF 4400 
MQL 7421 
NEWFLD 4660 
OCTEL 4464 
OPRFLD 5215 
PLOT 5264 
PREFLD 4213 
PUN 5316 
PUNL 5243 
RESTR3 4266 
RESTR4 4323 
RPLBIN 5200 
SAFADO 4556 
SAVBIN 5400 
SETFLD 5015 
SL6 5346 
$L7 5345 

SPECHK 4725 
STRAOO 4336 
STRBLK 4335 
STRBUF 5350 . 
STRCHK 4623 
STRTUP 4534 
STRTYP 4441 
TBEGIN 4744 
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LINKS GENERATED I 63 
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